(1+ (- (char-code (char line 2)) (char-code #\X)))))))

					     (char line 2)))))

  (let ((opp (car game))(me (car (cdr game))) (win-score 6) (draw-score 3) (loss-score 0))
    (+ me (cond
	    ((check-draw opp me) draw-score)
	    ((check-win opp me) win-score)
	    ((check-loss opp me) loss-score)
	    (t (format t "WTF~%"))))))

  (let ((opp (car game)) (outcome (car (cdr game))) (win-score 6) (draw-score 3) (loss-score 0))
    (let ((me (cond
	       ((eql #\X outcome) (lose-against opp))
	       ((eql #\Y outcome) (draw-against opp))
	       ((eql #\Z outcome) (win-against opp))
	       (t (format t "WTF (input)~%"))
	       )))
      (+ me (cond
	      ((check-draw opp me) draw-score)
	      ((check-win opp me) win-score)
	      ((check-loss opp me) loss-score)
	      (t (format t "WTF (outcome)~%")))))))