(defun second-word (str)
(let ((pl (+ (position #\ str) 1)))
(subseq str pl (position #\ str :start pl))))
(defun second-word (str)
(let ((pl (+ (position #\ str) 1)))
(subseq str pl (position #\ str :start pl))))