hantei :: Int -> Int -> String hantei j a | j == 0 = case a of {0->"Drew"; 1->"Won"; 2->"Lost"} | j == 1 = case a of {0->"Lost"; 1->"Drew"; 2->"Won"} | j == 2 = case a of {0->"Won"; 1->"Lost"; 2->"Drew"} | otherwise = "" battle :: String -> String battle str = do let w = words str jibun = read (w !! 0) aite = read (w !! 1) hantei jibun aite main = do str <- getLine putStrLn $ battle str