main :: IO () main = interact $ solve . map read . words solve :: [Int] -> String solve [a, b] | c == 0 = "Drew" | c == -1 || c == 2 = "Won" | otherwise = "Lost" where c = a - b