main :: IO()
main = main_loop 1
  
main_loop :: Int -> IO()
main_loop i = do
  line <- getLine
  if line == "0"
    then return ()
    else do putStrLn $ "Case " ++ show i ++ ": " ++ line
            main_loop $ i+1

