From: Michael Cooper
Subject: Poetry generator
Date: Fri, 24 May 1996 00:00:00 +0000
Message-ID: <4o3e16$rbf@light.lightlink.com>

(defun haiku (y)
    (cond (not y) (output '(y not))
          t (haiku 'because)))