;;;;1)
 (define (factorial n)
   (if (= n 0)
       1
       (* (factorial (- n 1)) n)))

;;;;2)
 (define (factorial n)
  (if (> n 1)
      (* n (factorial(- n 1)))
      n))