(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")

(begin-laml)

   
(define (fac n) (if (= 0 n) 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)