main = mapM_ process . addCase .takeWhile (/= "0") . lines =<< getContents
  where process line = do putStrLn line

addCase :: [String]->[String]
addCase xs = zipWith (\i x -> "Case "++ (show i)++": "++x) [1..] xs