read "Enter n: ",n,!
  write n,"! = "
  do factorial(.n)
  write n,!
  halt

factorial(n)
  if n=1 quit
  set k=1
  for i=1:1:n do
  . set k=k*i
  set n=k
  quit