(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")
(set-xml-accept-extended-contents-in 'xhtml10-transitional #t)

(define (factorial x)
  (if (< x 2)
      x 
      (* x (factorial (- x 1)))))

(write-html '(raw prolog)
 (html 
   (head 
     (title "Factorial"))
  (body 
     (p "factorial(10) is" (factorial 10))))
)

(end-laml)