import Control.Applicative

main = do 
	xs <- zip [1..] . takeWhile (/= "0") . lines <$> getContents
	mapM putStrLn $ map showAnswer xs


showAnswer :: (Int, String) -> String
showAnswer (i, n) = "Case " ++ show i ++ ": " ++ n
