;   This shows a loop construct

(define fact
	(lambda (n)
		(let loop ((counter n)
			(accumulator 1))
		   (if (< counter 2)
			accumulator
		      (loop (- counter 1)
			  (* accumulator counter))))))


;This will find the factorial of input n


The example from the slides was a recursive function that did the same thing.

(define (fact x)
if (=  x 0)
		1
		(* x  (fact (- x 1))))