#! @clisp@
;;; -*- Mode: Lisp -*-

;;;
;;; $Header: /home/gene/library/website/docsrc/lh/RCS/excgi1.cgi.sh,v 395.1 2008/04/20 17:25:45 gene Exp $
;;;

(load "html.lisp")
(load "excgi.lisp")

;; Randomize the pseudoranom number generator.
(setq *random-state* (make-random-state t))

;; Generate & save, but do not yet send, the report.
(defvar *report* (excgi 1000))

;; Send HTTP reply headers.
(format t "Content-Length: ~D" (length *report*))
(format t "~%Content-type: text/html")
(format t "~%~%")

;; Send the report itself.
(princ *report*)

;;; --- end of file ---