(defparameter ewin 0)
(defparameter wwin 0)
(loop for char = (read-char nil nil) do
          (case char
                (#\Newline (return))
                (#\O (setq wwin 0) (incf ewin) (if (= ewin 3) (return) ))
                (#\X (setq ewin 0) (incf wwin) (if (= wwin 3) (return) ))
          )
  )

(if (= ewin 3) (format t "East~%"))
(if (= wwin 3) (format t "West~%"))
(if (and (/= ewin 3) (/= wwin 3)) (format t "NA~%"))