; 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 "")
(output "Your client supports: " )
(print (id "supports")) ; we must use print to output this list.