to factorial(n)
  if n = 0 then
    return 1
  else
    return n * factorial(n - 1)
  fi
eo

to main
  write("Factorial of 5 is: ", factorial(5))
eo