%%HP: T(3)A(R)F(.);
\<< CHK13 RCLF -42. CF \-> flg
  \<< IP SWAP IP { } UNROT
    FOR year DEPTH \-> num
      \<< year JKH13 DEPTH num -
      \>> \->LIST IP .01 * year .0013 + ADD +
    NEXT flg STOF
  \>>
\>>