%%HP: T(3)A(R)F(.);
\<<
  0 0 0 0 0 0 0 0 0 0 0 0 {} \-> A K B F H I J C D G N T W E aryZ
  \<<
     MEM DROP
     TICKS
     A 3 DISP
     K 4 DISP
     10 K ^ 'B' STO
     K 2 LOG / IP 'E' STO
     A 2 LOG / IP 1 + 'F' STO F 5 DISP
     A K / 1 + IP 'H' STO

     1 F FOR I B 5 / NEXT F \->LIST 'aryZ' STO

     F 'N' STO
     0 'C' STO
     1 H FOR I
       N 6 DISP
       0 'T' STO
       aryZ LIST\-> DROP
       N 1 - 1 FOR J
         J PICK B * T J * + 'W' STO
         J J + 1 - 'D' STO
         W D / IP 'T' STO
         W D T * - J UNPICK
       1 NEG STEP
       F \->LIST 'aryZ' STO

       T B / IP 'W' STO
       C W +
       T W B * - 'C' STO

       N E - 'N' STO
     NEXT

     H \->LIST 'arry' STO

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