%%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 \<< 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 H FOR I 0 NEXT H \->LIST 'arry' STO 1 F FOR I B 5 / NEXT F 'N' STO 0 'C' STO 1 H FOR I N 6 DISP 0 'T' STO N 1 - 1 FOR J J PICK B * T J * + J J + 1 - DUP2 / IP 'T' STO T * - J UNPICK 1 NEG STEP T B / IP 'W' STO arry I C W + PUT 'arry' STO T W B * - 'C' STO N E - 'N' STO NEXT F \->LIST DROP TICKS SWAP - B\->R 8192 / \>> arry \>> 'PI2CAL' STO