chris::String->String
chris d = case d of 
    "22" -> "Christmas Eve Eve Eve"
    "23" -> "Christmas Eve Eve"
    "24" -> "Christmas Eve"
    "25" -> "Christmas"

main::IO ()
main = do
    d <- getLine
    putStrLn $ chris d