%%HP: T(3)A(D)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 # 3600d * # 8192d * +
\>>