; 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.