ありゃ、プログラム(というか演算の方)をミスった。
訂正版: http://ranobe.com/up/src/up142189.txt