import Control.Applicative
import Data.List

main :: IO ()
main = do  
  input <- getContents 
  let strList = lines input
  let listSize = length strList - 1
  let num = [1..listSize]
  let listWithoutZero = take listSize strList 
  let answerTuple = zip num listWithoutZero
  mapM_ putStrLn $ map toCaseStr answerTuple


toCaseStr :: ((Int, String) -> String)
toCaseStr (x, y) = "Case " ++ show x ++ ": " ++ y

getInts = do 
  x <- getLine 
  let y = (map$toInt)$words x
  return y
  
toInt :: (String -> Int)
toInt x = read x :: Int
