(load (string-append laml-dir "laml.scm"))
(laml-style "simple-xhtml1.0-strict-validating")

(set! xml-validate-contents? #t)
(set! xml-check-attributes? #t)
(set-xml-accept-only-string-valued-attributes-in 'xhtml10-strict #t)

(load (in-startup-directory "cd-stuff.scm"))

Show source file in large font In abstract1: Link from page-title to it's cross reference table entry 
(define page-title "My CD Archive") Show source file in large font In abstract1: Link from document-body to it's cross reference table entry 6.2. A CD archive
; document-body ; Writing the cd archive to a file. (write-html '(raw) (cd-archive ; A linked program source marker to section 6.2:
'A CD archive'
Mark char: a (cd-entry ; A linked program source marker to section 6.2:
'A CD archive'
Mark char: b (cd-number "1") (cd-artist "Paul Simon") (cd-title "Graceland") (cd-playing-time 45 37) ) (cd-entry ; A linked program source marker to section 6.2:
'A CD archive'
Mark char: c (cd-number "2") (cd-artist "Elvis Presley") (cd-title "Elvis Christmas Classics") (cd-playing-time 37 38) ) (cd-entry ; A linked program source marker to section 6.2:
'A CD archive'
Mark char: d (cd-number "3") (cd-artist "Elvis Presley") (cd-title "Elvis No1 Hits") (cd-playing-time 63 45) ) ) ) (end-laml)