%%HP: T(3)A(R)F(.);
"!NO CODE
!RPL
::
  CK2NOLASTWD
  CK&DISPATCH1
  2REAL
  ::
    %0 %0 %0 %0 %0 %0 %0 %0 %0 %0 %0
    {{ A K B F H I J C G N T W E }}
  ( {{ E W T N G C J I H F B K A }}  for calc )

    ::
     CLKTICKS
     A %3 DODISP
     K %4 DODISP
     %10 K %^ %>%% !B
     K %2 %LOG %/ %IP !E
     A %2 %LOG %/ %IP %1+ !F  F %5 DODISP
     A K %/ %1+ %IP !H
     H COERCE #0 DO %0 LOOP  H COERCE {}N ' ID arry STO
     B %%5 %%/  F COERCE #0 DO DUP LOOP DROP

     F !N
     %%0   !C
     H %1+ COERCE #1 DO
       N %6 DODISP
       %%0 !T

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

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

       N E %- !N
     LOOP

    F COERCE {}N DROP

    CLKTICKS SWAP bit- HXS>% % 8192 %/

    ID arry
    ;
 ABND
 ;
;
@"