# Pastebin t4AqLcpO
(dotimes (n 500)
  (when (eql (random 100) 50)
    (error 'i-am-falling :message (format nil "from level ~A" n))))