-- Repetitive Processing - Print Test Cases

import Control.Applicative

main :: IO ()
main = do
  xs <- takeWhile (/= "0") . words <$> getContents
  mapM_ putStrLn [mes i x | (i, x) <- zip [1 ..] xs]
    where mes i x = "Case " ++ (show i) ++ ": " ++ x

