;;; -*- mode: Lisp -*-
;;;
;;; $Header: /home/gene/library/website/docsrc/lh/RCS/excgi.lisp,v 395.1 2008/04/20 17:25:45 gene Exp $
;;;

(defvar *syms* (coerce '(* + - / append apply aref car cdr defmacro
			   defstruct defun do dolist dotimes funcall
			   length let list loop macrolet map mapc
			   mapcan mapcar maplist)
		       'array))

(defun randelt (arr)
  (let ((r (random (length arr))))
    (aref arr r)))

(defun randlist ()
  (do ((lst  ()            (cons (randelt *syms*) (cons " " lst)))
       (r    (random 100)  (- r 1)))
      ((<= r 1) lst)))

(defun excgi (count)
  (html:html
   (html:head (html:title "excgi.lisp"))
   (html:body
    (html:h1 '((align . center)) "excgi.lisp")
    (apply #'concatenate 'string
	   (loop for i from 1 to count
		 collect (apply #'html:p (randlist)))))))

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