調べたページの説明通りプログラムしたのがこれ。