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

main :: IO()
main = do
  d <- readLn :: IO Int
  let ans = case d of
            22 -> "Christmas Eve Eve Eve"
            23 -> "Christmas Eve Eve"
            24 -> "Christmas Eve"
            25 -> "Christmas"
            _ ->  "1"
  putStrLn ans
