%%HP: T(3)A(R)F(.);
\<< \-> S L
\<< S R\->B DUP #64h /
    DUP #64h * ROT SWAP
    - SWAP #100h * +
    L 1 + R\->B #14h
    SWAP - #4h * #2h +
    #10000h * +
    #1000000h + RCLF
    SWAP 2 SWAP PUT
    STOF
\>>
\>>
