main :: IO ()
main = interact $ solve . words

solve :: [String] -> String
solve (name:xs) = if n `mod` 2 == 0 then name else f name
    where
        n = sum . map length . map (filter (/= '.')) $ xs
        f :: String -> String
        f s | s == "yukiko" = "oda"
            | otherwise     = "yukiko"