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

(define (indent-pixels p . contents)
  (table 'border "0"
   (tbody
     (tr 
      (td 'width (as-string p) "")
      (td 'width "*" contents)))))


(write-html 'raw
 (html
  (head (title "Indent Pixel Example"))
  (body

    (p "Here is some initial text")

    (indent-pixels 35
       (p "First paragraph of indented text")
       (p "Second paragraph of indented text")
    )

    (p "Here is some final text"))))