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


(write-html 'pp
 (html
  (head 
    (title "Demo of CSS rule")
  )

  (body 

    (em 'class "c1" 'css:background-color "yellow" "Görlitz, December, 2005")
   
  )
 ))