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

     LAM F ' LAM N STO
     %%0   ' LAM C STO
     LAM H %1+ COERCE #1 DO
       LAM N %6 DODISP
       %%0 ' LAM T STO

       LAM N DUP ' LAM J STO COERCE #1+ #1 DO
         LAM J COERCE ROLL  LAM B %%* LAM T LAM J %>%% %%* %%+
         LAM J LAM J %+ %1- %>%% 2DUP
                %%/ %%FLOOR ' LAM T STO
                LAM T %%* %%- LAM J COERCE UNROLL
       LAM J %1- ' LAM J STO LOOP

       LAM T LAM B %%/ %%FLOOR ' LAM W STO
       LAM C LAM W %%+ %%>%
        INDEX@ ID arry PUTLIST ' ID arry STO
       LAM T LAM W LAM B %%* %%- ' LAM C STO

       LAM N LAM E %- ' LAM N STO
     LOOP

    LAM F COERCE {}N DROP

    CLKTICKS SWAP bit- HXS>% % 8192 %/

    ID arry
    ;
 ABND
 ;
;
@"