函数：找出一句话中的第二个单词

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