(a stench is in 3 5)
 (a pit is nearby)
 (is the wumpus near)
 (Did you go to 3 8)
 (Yes -- Nothing is there)
 (Shoot -- Shoot left)
 (Kill the wumpus -- shoot up)))

 (defun ss (&optional (sentences *sentences*))
 "Run some test sentences, and count how many were¬
not parsed."
 (count-if-not
 #'(lambda (s)
 (format t "~2&>>> ~(~{~a ~}~)~%"¬
s)
 (write (second (parse s)) :pretty t))
 *sentences*))