\<< 0. 0. 1. 9.
  FOR a DROP 100. + a DUP 3. ^ SWAP 2. MOD PICK3 PICK3 - 90. + 3. XROOT
    FOR b DUP2 b SWAP OVER 3. ^ + UNROT 10. * + DUP PICK3 - DUP 3.
      XROOT CEIL SWAP 9. + 3. XROOT FLOOR DUP2
      IF \<=
      THEN
        FOR c DUP2 c SWAP OVER + UNROT 3. ^ + DUP2
          IF ==
          THEN DUP R\->I 7. ROLLD
          END DROP2
        NEXT
      ELSE DROP2
      END DROP2 2.
    STEP
  NEXT DROP2
\>>
