(defun try (phrase)
  (msg t"~%Trying :~%")
  (write phrase)
  (msg t "~%")
  (let ((result (p phrase)))    
    (msg t "~%")
    (write result)
    (msg t "~%")))
  
(p '(POIROT SOLVED THE CASE) :GRAMMAR 'CT1 :DICTIONARY 'dict1)
(try '(THE DETECTIVES LOST THEIR GUNS))
(try '(POIROT THOUGHT))
(try '(POIROT SENT THE SOLUTION TO THE POLICE))
(try '(POIROT BELIEVED THE DETECTIVES WERE INCOMPETENT))
(try '(POIROT BELIEVED THAT THE DETECTIVES WERE INCOMPETENT))
(try '(POIROT SOLVED))
(try '(POIROT THOUGHT THE GUN))
(try '(POIROT SENT TO THE POLICE))