(defun make-select-form (str name values)
  (cl-who:with-html-output (str nil :indent t)
    (:select :name name
             (dolist (value values)
               (cl-who:htm
                (:option :name value (cl-who:str value)))))))