{-# LANGUAGE OverloadedStrings #-} import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T main :: IO () main = solve <$> f >>= T.putStrLn where f = T.words <$> T.getLine solve :: [Text] -> Text solve = f . length . filter (\x -> x == "AC" || x == "NoOut") where f x | x >= 6 = "Win" f 5 = "Draw" f _ = "Lose"