%%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 %^ COERCE ' LAM B STO
     LAM A %2 %LOG %/ %IP COERCE ' LAM F STO  LAM F UNCOERCE %5 DODISP
     LAM A LAM K %+ %1- LAM K %/ %1+ %IP COERCE ' LAM H STO
     LAM H  #0 DO #0 LOOP

     LAM F DUP ' LAM N STO #0 DO
       LAM N UNCOERCE %6 DODISP
       LAM N LAM N #+ #1+ ' LAM G STO
       #0
       LAM H #2+ #2 DO
         LAM B #* INDEX@ ROLL LAM N #*  #+
           LAM G #/

           INDEX@ UNROLL
       LOOP DROP
       #2+
     LAM N #1- ' LAM N STO LOOP

     #0
     LAM H #1+ DUP ' LAM I STO #1 DO
       LAM I ROLL   #+
         LAM B #/ SWAP
              UNCOERCE LAM I UNROLL
     LAM I #1- ' LAM I STO LOOP DROP

     LAM H reversym DROP

     LAM H {}N  ' ID arry STO

     CLKTICKS SWAP bit- HXS>% % 8192 %/

    ;
  ABND

  ID arry
  ;
;
@"