| (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)
|
|
| | An example of a LAML document written in Scheme.
|