(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")
(define map (curry-generalized map))
(define (fac n)
(if (= 0 n) 1 (* n (fac (- n 1)))))
(define table-with-border (xml-modify-element table 'border "1"))
(define (make-n-fac-n h)
(map
(lambda (i) (list i (fac i)))
(number-interval 1 h)))
(write-html '(raw)
(html
(head
(title "Factorials"))
(body
(h1 "Factorials")
(table-with-border
(map
(compose tr (map (compose td as-string)))
(make-n-fac-n 55))))))
(end-laml)