さっきのを高橋メソッドに直してみた
http://strange.drive.ne.jp/stored/dvup7829.txt