(load (string-append laml-dir "laml.scm"))
(laml-style "simple-html4.01-transitional-validating")

Show source file in large font In fac-2: Link from fac2 to it's cross reference table entry 
(define (fac2 n) (if (= 0 n) 1 (* n (fac2 (- n 1))))) (write-html '(raw) (html (head (title "More factorials")) (body (h1 "More factorials") (table 'border "1" (thead (tr (td (b "n")) (td (b "(fac n)")))) (tbody (map tr (map (lambda (n) (list (td (as-string n)) (td (as-string (fac2 n))))) (number-interval 1 50)))) )))) (end-laml)