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


(write-html 'pp
 (html
  (head 
    (title "Demo of Rule 5")
  )

  (body
    (ul 
      (map li (list "one" "two" "three")) 
    )
  )
 )
)