%%HP: T(3)A(R)F(.);
\<< # 10000000000000b /
B\->R 3600 / 24 / DUP
FP 24 * \->HMS SWAP IP
365.242198781 / DUP
IP 1 - 1000000 /
31.12 + SWAP FP
365.242198781 * .5 +
IP DAT