whoNext :: String -> String -> String whoNext s b | even n = s | otherwise = if s == "oda" then "yukiko" else "oda" where n = length $ filter (\c -> (c == 'w') || (c == 'b')) b main :: IO () main = do s <- getLine b <- getContents putStrLn $ whoNext s b