main :: IO () main = do s <- getLine putStrLn $ (:[]) . fst . head $ filter (\a -> fst a /= snd a) $ zip "yukicoder" s