%%HP: T(3)A(R)F(.);
\<< DATE DUP IP SWAP FP 100. * DUP IP SWAP FP 10000. * UNROT -42. FS?
  \<< SWAP
  \>> IFT
\>>