conv :: Integral a => a -> String
conv 25 = "Christmas"
conv 24 = "Christmas Eve"
conv 23 = "Christmas Eve Eve"
conv 22 = "Christmas Eve Eve Eve"
conv _ = ""

main :: IO ()
main = do
    d <- readLn :: IO Int
    putStrLn $ conv d
