(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-strict-validating")
(define laml-url "http://www.cs.auc.dk/~normark/laml/")
(write-html 'pp
(html
(head
(title "White space handling")
)
(body
(p "This is the" (em "first") "paragraph.")
(p "This is the second" (b "paragraph") _ ".")
(p (list (kbd "This") "is" "the" "third"
"paragraph" _ "."))
(p (list (kbd "This") "is" "the" "fourth"
'class "third" "paragraph" _ "."))
(p (list "This"
(list (b "is") "the")
"fifth" "paragraph" _ "."))
(p (list "This"
(list (b "is") "the" 'class "third")
"sixth" "paragraph" _ "."))
(p (list "This" "is" "t") _
"h" _
(list "e" "seventh")
(list (list (list "paragraph"))) _ ".")
)
)
)
(end-laml)