import Control.Applicative
main = do xs <- (map read) . lines <$> getContents
          putStr . unlines $ solve 1 xs

solve :: Int -> [Int] -> [String]
solve i (x:xs) | x == 0 = []
               | otherwise = ("Case" ++ (show i) ++ ": " ++ (show x)) : solve (i+1) xs