main :: IO ()
main = printCase 1

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