(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")))
    
    (let ((attributes (list 'start "3"))
          (contents   (map li (list "one" "two" "three"))))
       (ol 'id "demo" contents attributes)))
  )
)