%%HP: T(3)A(R)F(.);
\<< \->INL \-> s p t
  \<< s "" \=/ s ":" +
s IFTE 's' STO ""
    WHILE DUP s
SWAP + "_" + p DISP
      DO
      UNTIL KEY
      END DUP 51 \=/
    REPEAT DUP
      IF 61 ==
      THEN DROP
LCD\-> \-> s d
        \<< HALT s ""
d \->LCD
        \>>
      END DUP
      IF 55 ==
      THEN DROP 1
OVER SIZE 1 - SUB
      ELSE t DUP
ROT POS 1 +
        IF DUP 1 \=/
        THEN GET +
        ELSE DROP2
        END
      END
    END DROP s OVER
+ p DISP
  \>>
\>>