(load "html4-loading-stuff.scm")
(html-write
(html
(head
(title "Another LAML Example")
)
(body
(h1 "Another LAML Example")
"Here are some facts about Germany, Denmark, and USA:" (p)
(table 'border 1
(tr (th "") (th "Germany") (th "Denmark") (th "USA"))
(tr (td "Currency") (td "DMark") (td "Kroner") (td "Dollar"))
(tr (td "Size") (td "Large") (td "Small") (td "Huge"))
(tr (td "Prime minister") (td "Schröder") (td "Rasmussen") (td "-"))
(tr (td "President") (td "??") (td "-") (td "Clinton"))
)
(p)
(a 'href "../goerlitz.html" "Top level lecture page")
)
)
) |