sum = 1
TextWindow.Writeline("put a number in this bitch but dont make it to big")
creative = TextWindow.ReadNumber()
For i = 1 To creative
  sum = sum * i
EndFor
TextWindow.WriteLine(sum)

sum = sum - 1

checker:
If(sum>= 1)then
For j = creative To 1 Step -1
  If (Math.Remainder(sum,j) <> 0) Then
    sum = sum -1
    Goto checker
    EndIf
    If(j=1) then
      TextWindow.WriteLine(sum)
      sum = sum - 1
      Goto checker
    EndIf
  EndFor
  endif