main = do 
    n <- readLn :: IO Int
    let day = case n of 
            25 -> "Christmas"
            24 -> "Christmas Eve"
            23 -> "Christmas Eve Eve"
            22 -> "Christmas Eve Eve Eve"
    putStrLn day