{{ Factorial Program
{{ Juliet 2004.0

$lib

rout fac:int (n:int)
  cond n = 0
    return 1
  cond n <> 0
    return (n * fac (n - 1))

rout main
  def continue:int <- 1

  loop continue = 1
    print "Enter a number to calculate the factorial of (0 to stop): "
    def x:int <- readi
    cond x = 0
      return
    printn "fac (" & str x & ") = " & str fac(x)