(defun index ()
(with-html-output-to-string (*standard-output* nil :prologue t)
    (:html
     (:head)
     (:body
      (:select
       (dolist (var '("citroen" "volvo" "audi"))
         (format nil ("(:option %s" var))))))))