%%HP: T(3)A(D)F(.);
\<<
   3   DUPN   TYPE   SWAP   TYPE   ROT
   TYPE   3   \->LIST   { 0   6   9 }
   IF   ==
   THEN   DUP   1   +   \->   n
      \<<   #18CEAh   SYSEVAL
      SWAP
         #549CCh   SYSEVAL
         #74D0h   SYSEVAL
         #59373h   SYSEVAL
         DROP   #7497h   SYSEVAL
         1   n
         FOR   m   m   ROLL   COLCT
         NEXT
         n   \->LIST
      \>>
   END
\>>