boost_1_45_0/libs/spirit/example/scheme/example/scheme/call_factorial.scm - nest-learning-thermostat/5.0/boost - Git at Google

 ; The hello-world for interpreters ;-)
 (define (factorial n)
   (if (<= n 0) 1
     (* n (factorial (- n 1)))))

 (define (main)
     (display (factorial 10)))
	; The hello-world for interpreters ;-)
	(define (factorial n)
	(if (<= n 0) 1
	(* n (factorial (- n 1)))))

	(define (main)
	(display (factorial 10)))