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

main :: IO ()
main = do
  d <- getLine
  print $ solve (read d)
