import Data.List main = do s <- getLine let n = getIx s (-1) putStrLn $ ("yukicoder" !! n):[] getIx [] c = -1 getIx (n:ns) c = if n == '?' then c + 1 else getIx ns (c + 1)