import Data.List


fff a
  | (read (fst a)::Int) == 0 = return ()
  | otherwise = putStrLn $ "Case " ++ show (snd a) ++ ": " ++ fst a


main = do
  a <- getContents
  let aaa = lines a
  let bbb = take (length aaa) $ iterate (+1) 1
  let ccc = zip aaa bbb
  mapM fff ccc
