(define (fac n)
	(if (<= n 1)
		1
		(* n (fac (- n 1)))))

(display "Enter a number: ")
(display (fac (read)))
(newline)