; Speakhtml (c) 2002 Niklas Olmes
; http://faith.eu.org
;
; $Id: html4-loose.scm,v 2.3 2002/12/15 03:43:18 niklas Exp $
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define elements
'((!a 2 a)
(!abbr 2 abbr)
(!acronym 2 acronym)
(!address 2 address)
(!area 2 area #t)
(!b 2 b)
(!base 2 base #t)
(!bdo 2 bdo)
(!big 2 big)
(!blockqoute 2 blockqoute)
(!body 2 body)
(!br 2 br #t)
(!button 2 button)
(!caption 2 caption)
(!cite 2 cite)
(!code 2 code)
(!col 2 col #t)
(!colgroup 2 colgroup #t)
(!dd 2 dd #t)
(!del 2 del)
(!dfn 2 dfn)
(!div 2 div)
(!dl 2 dl)
(!dt 2 dt)
(!em 2 em)
(!fieldset 2 fieldset)
(!form 2 form)
(!h1 2 h1)
(!h2 2 h2)
(!h3 2 h3)
(!h4 2 h4)
(!h5 2 h5)
(!h6 2 h6)
(!head 2 head)
(!hr 2 hr #t)
(!html 2 html)
(!i 2 i)
(!iframe 2 iframe)
(!img 2 img #t)
(!input 2 input #t)
(!ins 2 ins)
(!kbd 2 kbd)
(!label 2 label)
(!legend 2 legend)
(!li 2 li)
(!link 2 link #t)
(!map 2 map)
(!meta 2 meta #t)
(!noscript 1 noscript)
(!object 2 object)
(!ol 2 ol)
(!optgroup 2 optgroup)
(!option 2 option)
(!p 2 p #t)
(!param 2 param #t)
(!pre 2 pre)
(!q 2 q)
(!samp 2 samp)
(!script 2 script)
(!select 2 select)
(!small 2 small)
(!span 2 span)
(!strong 2 strong)
(!style 2 style)
(!sub 2 sub)
(!sup 2 sup)
(!table 2 table)
(!tbody 2 tbody)
(!td 2 td)
(!textarea 2 textarea)
(!tfoot 2 tfoot)
(!th 2 th)
(!thead 2 thead)
(!title 1 title)
(!tr 2 tr)
(!tt 2 tt)
(!ul 2 ul)
(!var 2 var)))
(define (head)
(display "")
(newline)
(display "")
(newline))