module Main where main :: IO () main = do { [me,you] <- getInts ; putStrLn $ case me of 0 -> case you of 0 -> "Drew" 1 -> "Won" 2 -> "Lost" 1 -> case you of 0 -> "Lost" 1 -> "Drew" 2 -> "Won" 2 -> case you of 0 -> "Won" 1 -> "Lost" 2 -> "Drew" } getInts :: IO [Int] getInts = map read . words <$> getLine