昔書いたプログラムです。