サンプルプログラムを真似してつくりました。

さらにそれをコンパクトにしました。