[ table ]              is results   (   n --> s )
  4 times
    [ ' [ stack [ ] ]
      copy
      ' results put ]

  [ results dup take
    rot join swap put ]  is addresult ( n n -->   )

  [ table 9 10 11 12 ]   is radix     (   n --> n )

  [ table 1 ]            is !         (   n --> n )
  1 11 times
    [ i^ 1+ * dup
      ' ! put ]
  drop

  [ dip dup
    0 temp put
    [ tuck /mod !
      temp tally
      swap over 0 =
      until ]
    2drop
    temp take = ]       is factorion ( n n --> b )

  1500000 times
    [ i^ 4 times
      [ dup
        i^ radix
        factorion if
          [ dup i^
            addresult ] ]
      drop ]
  4 times
    [ say "Factorions for base "
     i^ radix echo say ": "
     i^ results take echo cr ]