solve :: Int -> Int -> String solve a b | a == b = "Drew" | (a == 0 && b == 1) || (a == 1 && b == 2) || (a == 2 && b == 0) = "Won" | otherwise = "Lost" main :: IO () main = do input <- getLine let [a, b] = map read (words input) putStrLn (solve a b)