(load (in-laml-dir "laml.scm"))
(use-laml-style "simple-xhtml1.0-transitional-validating")
(begin-laml)

(define (fac n)
  (if (= n 0) 1 (* n (fac (- n 1)))))

(write-xml
  '(raw prolog)
  (html
    (head
      (title "Factorials"))
    (body
      (h1 "Factorials")
      (table 'border "1"
        (tbody
          (tr
            (td "1") (td (fac 1)))
          (tr
            (td "2") (td (fac 2)))
          (tr
            (td "3") (td (fac 3)))
          (tr
            (td "4") (td (fac 4))))))))

(end-laml)