readDigits :: IO [Int]
readDigits = map read <$> words <$> getLine

data Jじゃんけん = Gぐー | Cちょき | Pぱー deriving (Show, Eq, Enum)

main :: IO ()
main = do
    [a,b] <- map toEnum <$> readDigits :: IO [Jじゃんけん]
    putStrLn $ match a b
    where
    match Gぐー     Gぐー   = "Drew"
    match Cちょき   Cちょき = "Drew"
    match Pぱー     Pぱー   = "Drew"
    --
    match Gぐー     Cちょき = "Won"
    match Gぐー     Pぱー   = "Lost"
    --
    match Cちょき   Pぱー   = "Won"
    match Cちょき   Gぐー   = "Lost"
    --
    match Pぱー     Gぐー   = "Won"
    match Pぱー     Cちょき = "Lost"