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