(define fact (lambda (x)
  (if (< x 2)
    x
    (* (fact (- x 1)) x))))