; this code is only run _once_. ; Define our sub-optimal little fac function.. (defun fac (x) (if (< x 3) x (* x (fac (- x 1))))) ; .. and a few variables .. (define foo 10) (define a nil) (set! foo 9) (output "foo is " foo "
") (output "foo is " (setq foo (* foo foo)) "
") (output "foo is " (setq foo (* foo foo)) "
") (set! a (variable-number "a")) (if (< a 200) (output a "! is " (fac a) "
") (output "Try a smaller number
")) (output "Calculate !") (output "Your client supports: " ) (print (id "supports")) ; we must use print to output this list.