import Data.List import Data.Maybe f :: (Char, Char) -> Bool f a = (fst a /= snd a) main = do s <- getLine putChar . snd . fromJust . find f . zip s $ "yukicoder" putChar '\n'