(defun generate (phrase)
  "Generate a random sentence or phrase."
  (cond ((listp phrase) 
	 (mappend #'generate phrase))
	((rewrites phrase)
	 (generate (random-elt (rewrites phrase))))
	(t (list phrase))))