%%HP: T(3)A(R)F(.);
"!NO CODE
!RPL
::
  CK2NOLASTWD
  CK&DISPATCH1
  2REAL
  ::
    %0 %0 %0 %0 %0 %0
    {{ A K B F H I G N }}
  ( {{ N G I H F B K A }} for calc )
    ::
     CLKTICKS
     A %3 DODISP
     K %4 DODISP
     %10 K %^ !B
     A %2 %LOG %/ %IP !F  F %5 DODISP
     A K %+ %1- K %/ %1+ %IP !H
     H COERCE  #0 DO %0 LOOP

     F DUP !N COERCE #0 DO
       N %6 DODISP
       N N %+ %1+ !G
       %0
       H %2 %+ COERCE  #2 DO
         B %* INDEX@ ROLL  N %*  %+ DUP
           G %/ %IP SWAP #2 PICK
             G %* %- SWAP
           INDEX@ UNROLL
       LOOP DROP
       %2 %+
     N %1- !N LOOP

     %0
     H %1+ DUP !I COERCE #1 DO
       I COERCE ROLL   %+ DUP
         B %/ %IP SWAP #2 PICK
           B %* %- I COERCE UNROLL
     I %1- !I LOOP DROP

     H COERCE reversym DROP

     H COERCE {}N  ' ID arry STO

     CLKTICKS SWAP bit- HXS>% % 8192 %/

    ;
  ABND

  ID arry
  ;
;
@"