%%HP: T(3)A(R)F(.);
\<< \-> y m d
  \<< y 365. * d + 31. DUP m * - -
    IF m 3. \>=
    THEN m .4 * 2.3 + IP - y
    ELSE 'y' DECR
    END 4. / DUP IP ROT + SWAP 25. / IP .75 DUP ROT * + IP -
  \>>
\>>