(defvar N) (defvar K) (defvar temp) (setq temp (read-line)) (setq N (aref temp 0)) (setq K (aref temp 2)) (defvar Won1 "0 1") (defvar Won2 "1 2") (defvar Won3 "2 0") (defvar Lost1 "1 0") (defvar Lost2 "2 1") (defvar Lost3 "0 2") (defvar Drew1 "0 0") (defvar Drew2 "1 1") (defvar Drew3 "2 2") (if (or (equal temp Won1) (equal temp Won2) (equal temp Won3)) (format 't "Won~%") (if (or (equal temp Lost1) (equal temp Lost2) (equal temp Lost3)) (format 't "Lost~%") (format 't "Drew~%") ) )