%%HP: T(3)A(R)F(.);
\<<
  0 0 0 0 0 0 \-> A K B F H I G N
  \<<
     MEM DROP
     TICKS
     A 3 DISP
     K 4 DISP
     10 K ^ 'B' STO
     A 2 LOG / IP 'F' STO F 5 DISP
     A K + 1 - K / 1 + IP 'H' STO
     1 H FOR I 0 NEXT

     F 1 FOR N
       N 6 DISP
       N N + 1 + 'G' STO
       0
       2 H 1 + FOR I
         B *  I PICK N *  + DUP
           G / IP SWAP 2 PICK
             G * - SWAP
           I UNPICK
       NEXT DROP
       2 +
     1 NEG STEP

     0
     H 1 + 2 FOR I
       I PICK   + DUP
         B / IP SWAP 2 PICK
           B * - I UNPICK
     1 NEG STEP DROP

     H \->LIST 'arry' STO

     TICKS SWAP - B\->R 8192 /
  \>>
  arry REVLIST
\>>
'PICALC' STO