#lang scheme/base

(define (factorial n)
  (if (zero? n)
      1
      (* n (factorial (sub1 n)))))

(provide (all-defined-out))