(defun date ()
    (format t "NAS: ~a~%==>"
        (case (random 6)
            (0 "pfffffffft")
            (1 "pffft. pfft. rrrrrrr")
            (2 "huR DURRRR")
            (3 "pay attention to MEEEEEEEEEEEE")
            (4 "what you just said offended me here's why")
            (5 "my boyfriend is going to beat you up for that")))
    (read-line)
    (date))
(date)