import Control.Applicative
import Control.Monad
import Data.List
import Data.Array

main = do
  n <- (read::String -> Int) <$> getLine
  case n of
    22 -> putStrLn "Christmas Eve Eve Eve"
    23 -> putStrLn "Christmas Eve Eve"
    24 -> putStrLn "Christmas Eve"
    25 -> putStrLn "Christmas"
    _ -> return () 
    