#lang scheme/base (define (factorial n) (if (zero? n) 1 (* n (factorial (sub1 n))))) (provide (all-defined-out))