(load (string-append laml-dir "laml.scm")) (laml-style "simple-html4.01-transitional-validating") (define validate-html? #t) (define check-html-attributes? #t) (define transliterate-character-data? #t) (write-html 'raw (html (head (title "Hello World")) (body "Here is the body text of the most simple WWW page," "you have ever seen!!") ) ) (end-laml)