r "Enter n: ",n,!
  s result=$$factorial(n)
  w n,"! = ",result,!
  h

factorial(n)
  i n=1 q 1
  s k=1
  f i=1:1:n d
  . s k=k*i
  q k