プログラムはこんな感じです。 何かの参考になれば。