(fastcgi:out "Content-type: text/plain" #\Newline #\Newline)
(fastcgi:out
	"CLisp running with FastCGI support via Apache web server" #\Newline #\Newline
	"I am running in mode: " (if (fastcgi:is-cgi) "CGI" "FastCGI") #\Newline
	"The browser string is '" (fastcgi:getenv "HTTP_USER_AGENT") "'" #\Newline #\Newline
	"- CGI Environment variables are -" #\Newline)
(apply #'fastcgi:out (mapcar #'(lambda (arg) (list (car arg) ": " (cdr arg) ", ")) (fastcgi:getenv)))
(fastcgi:out
	#\Newline #\Newline "- Host Environment variables are -" #\Newline)
(apply #'fastcgi:out (mapcar #'(lambda (arg) (list (car arg) ": " (cdr arg) ", ")) (ext:getenv)))