4290  "S" input "FAKULTAET DER ZAHL:";A
4300  B=0:C=1:if A=0 or A=1 goto 4360
4320  for D=2 to A
4330  C=C*D:if C<1E5 goto 4350
4340  C=C*1E-5:B=B+5
4350  next D
4360  print C;"*";"10^";B
4370  goto 4290