とうどうさんの投稿から思いついたプログラムでした。 ありがとうございます。