%%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 %%/ %%FLOOR SWAP #2 PICK
             LAM G %%* %%- SWAP
            INDEX@ UNROLL
       LOOP DROP
       %%2 %%+
     LAM N %%1 %%- ' LAM N STO LOOP

     %%0
     LAM H %1+ DUP COERCE ' LAM I STO COERCE #1 DO
       LAM I ROLL %%+ DUP
         LAM B %%/ %%FLOOR SWAP #2 PICK
           LAM B %%* %%- %%>% LAM I 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
  ;
;
@"