(let ((1p (read)) (2p (read)) (judge '("Drow" "Won" "Lost"))) (print (list-ref judge (remainder (- 2p 1p) 3))))