(defvar *request* nil)

(defun puts (format-control &rest args)
  (unless *request*
    (error "*REQUEST* not specified. Use WITH-CGI-PUTS to specify it."))
  (sb-fastcgi:fcgx-puts *request* (apply #'format nil format-control args)))

(defmacro with-fcgi-puts ((request) &body body)
  `(let ((*request* ,request))
     ,@body))

(defun genwords (request)
  (with-fcgi-puts (request)
    (puts "Content-Type: text/plain~%~%%")
    (puts "~A~%" (generate-word))))