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)   = "Won"
	| j == (weak i)   = "Lost"
	| otherwise       = "Drew"
	where
		weak k = (k + 2) `mod` 3

main = do
	[n, k] <- fmap (map readInt . words) getLine
	putStrLn $ rsp n k