%%HP: T(3)A(R)F(.);
\<<
  0 0 0 0 0 0 0 0 0 \-> A K B F H I C G N T W
  \<<
     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 H \->LIST 'arry' STO

     F 1 FOR N
       N 6 DISP
       N N + 1 + 'G' STO
       0 'C' STO
       1 H FOR I
         arry I GET N * C B * + 'T' STO
         T G / IP 'W' STO
         T W G * - 'C' STO
         arry I W PUT 'arry' STO
       NEXT
       arry 1 DUP2 GET 2 + PUT 'arry' STO
     1 NEG STEP

     0 'C' STO
     H 1 FOR I
       arry I GET C + 'W' STO
       W B / IP 'C' STO
       arry I  W C B * - PUT 'arry' STO
     1 NEG STEP

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