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'