(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-transitional-validating")


(write-html 'raw
 (html 'xmlns "http://www.w3.org/1999/xhtml"
  (head 
   (meta 'http-equiv "Content-Type" 
         'content "text/html; charset=iso-8859-1") 
   (title "Attribute Demo"))
  (body 'id "KN" 'class "generic"

    (p "Here comes a camouflaged link:")

    (p (a 'href "http://www.cs.auc.dk" 'css:text-decoration "none"
          'target "main" "Link to the CS Department"))

    (p "End of document."))))


(end-laml)