%%HP: T(3)A(R)F(.);
\<< HMS\-> 3600 * 8192 *
R\->B SWAP DUP 100 * FP
10000 * 365.242198781
* .5 + IP SWAP DUP
.000001 - FP 100 * FP
100 / 31.12 + SWAP
DDAYS + 24 * R\->B
# 111000010000b 