main :: IO ()
main = do
    loop 1
    where
    loop cnt = do
        n <- readLn :: IO Int
        when (n /= 0) $ do
            putStrLn $ "Case " ++ (show cnt) ++ ": " ++ (show n)
            loop (cnt+1)