%%HP: T(3)A(D)F(.);
\<< RCLF BIN 64 STWS
DUP 3 GET OVER 1 GET
# 9223372036854775808d
0 \-> A B C D
  \<< "SFL -128 -1"
"  " A C OR \->STR 3 66
SUB A C AND B\->R NOT
    \<< 2 64 SUB "0"
SWAP +
    \>> IFT B C OR \->STR
3 66 SUB B C AND B\->R
NOT
    \<< 2 64 SUB "0"
SWAP +
    \>> IFT + + 'D' STO
"" 1 130
    FOR I D I I 9 +
SUB + " " + I 20 MOD
1 ==
      \<< 10 CHR +
      \>> IFT 10
    STEP + SWAP STOF
CLLC