(print-std-page (lml-file-name ',out-file :source) ,title ,@body))))
(defmacro titled-pre-section (title &body body)
`(progn
(h1 ,title)
(pre :style "padding-left:30pt;"
(print-std-page (lml-file-name ',out-file :source) ,title ,@body))))
(defmacro titled-pre-section (title &body body)
`(progn
(h1 ,title)
(pre :style "padding-left:30pt;"