import Control.Applicative

readAndPut i = do
    r <- readLn ::IO Int
    if r > 0 then do
        putStrLn $ "Case " ++ (show i) ++ ": " ++ show r
        readAndPut (i+1)
      else
        return ()

main = do
    readAndPut 1