(define (tabularize data #!key header)
(append '(table)
(if header
`((tr ,@(map (lambda (item) `(th ,item)) header)))
'())
(let ((body
(map (lambda (line)
(append '(tr)
(map (lambda (cell) `(td ,cell)) line)))
data)))
body)))
(define (text-input id)
`(input (@ (type "text")
(name ,id)
(maxlength 78)
(id ,id))))
(define (hidden-input id value)
`(input (@ (type "hidden")
(id ,id)
(name ,id)
(value ,value))))