readInt :: String -> Int
readInt = read

main = do
    s <- readInt<$>getLine
    putStr $ solve s

solve :: Int -> String
solve 25 = "Christmas"
solve 24 = "Christmas Eve"
solve 23 = "Christmas Eve Eve"
solve 22 = "Christmas Eve Eve Eve"
