:- ['/usr/local/lib/prolog/html.pl'].

main :- 
  tell('html_simple.html'),
  output_html([
    start,
    title('Simple HTML document generated from Prolog'),
    image('http://www.clip.dia.fi.upm.es/images/clip.gif'),
    heading(1,'Simple HTML document'),
    'This document was produced by the ',tt('html.pl'),' library.', \\,
    'It has facilities for:',
    itemize([
      [em('Generating'),' HTML documents (including forms).'],
      [em('Parsing'),' input from HTML forms.'],
      [em('Producing'),' stand-alone forms servers.'],
      etc
      ]),
    --,
    address('clip@dia.fi.upm.es'),
    end
  ]),
  told.
