%%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 }} for Debug4x )
    {{ N G I H F B K A }}
    ::
     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@ PICK N %%*  %%+ DUP
           G %%/ %%FLOOR SWAP #2 PICK
             G %%* %%- SWAP
            INDEX@ PTR 373D0 ( UNPICK_ )
       LOOP DROP
       %%2 %%+
     N %%1 %%- !N LOOP

     %%0
     H %1+ DUP COERCE !I COERCE #1 DO
       I PICK %%+ DUP
         B %%/ %%FLOOR SWAP #2 PICK
           B %%* %%- %%>% I PTR 373D0 ( UNPICK_ )
     I #1- !I LOOP DROP

     H COERCE reversym DROP

     H COERCE {}N  ' ID arry STO

     CLKTICKS SWAP bit- HXS>% % 8192 %/

    ;
  ABND

  ID arry
  ;
;
@"