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

(define laml-generation-meta (meta 'name "Generator" 'content "LAML"))
(define meta-props (list 'http-equiv "Content-Type" 'content "text/html; charset=iso-8859-1"))
(define html-props (list 'xmlns "http://www.w3.org/1999/xhtml"))
(define (link-index root-ast parent-ast) (let ((a-asts (find-asts root-ast "a"))) (multi-column-list 3 a-asts 700))) (write-html '(raw prolog) (html html-props (head (meta meta-props) laml-generation-meta (title "Delayed Procedural Content Items")) (body link-index ;
(hr) (p "Here is a document with a few links to other documents. Let us first link to the" (a 'href "http://www.cs.aau.dk/~normark/laml/" "LAML home page") _ "," "next to the" (a 'href "../../../tutorial/index.html" "LAML tutorial") "of this LAML distribution, and finally to the" (a 'href "http://www.cs.auc.dk/~normark/scheme/info/laml-pre-registration.html" "Download page of LAML") _"." ) (p "Here, in another paragraph, there are more links. First to" (a 'href "http://www.w3c.org" "W3C")_ "," "next to" (a 'href "http://www.acm.org" "ACM")_ "," "and finally to" (a 'href "http://www.google.com" "Google")_ "." ) ) ) ) (end-laml)