import Control.Monad import Control.Applicative import Data.Traversable (sequenceA) import qualified Data.Map.Strict as Map import Data.Bits import Data.Char import Data.Ix import Data.Array.IO import Data.Array.ST import Data.Array.Unboxed import Data.Array.IArray import Data.Array.Base(unsafeRead, unsafeWrite) import Data.Maybe import Text.Printf import System.IO readInt :: String -> Int readInt = read rsp i j | i == (weak j) = "Win" | j == (weak i) = "Lose" | otherwise = "Drew" where weak k = (k + 2) `mod` 3 main = do [n, k] <- fmap (map readInt . words) getLine putStrLn $ rsp n k