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

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

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

     LAM H COERCE reversym DROP

     LAM H COERCE {}N  ' ID arry STO

     CLKTICKS SWAP bit- HXS>% % 8192 %/

    ;
  ABND

  ID arry
  ;
;
@"