Declare main()

If OpenConsole() : main() : Else : End 1 : EndIf
Input() : End

Procedure main()
  Define.i n,b,d,i,j,sum
  Dim fact.i(12)

  fact(0)=1
  For n=1 To 11 : fact(n)=fact(n-1)*n : Next

  For b=9 To 12
    PrintN("The factorions for base "+Str(b)+" are: ")
    For i=1 To 1500000-1
      sum=0 : j=i
      While j>0
        d=j%b : sum+fact(d) : j/b
      Wend
      If sum=i : Print(Str(i)+" ") : EndIf
    Next
    Print(~"\n\n")
  Next
EndProcedure