{-
HOME- ITP1-ITP1_3-B
Discussion Solution Statistics Submit
 
Repetitive Processing - Print Test Cases
????????¶??? : 1 sec, ?????¢?????¶??? : 65536 KB
???????????±???????????????

????????????????????£????????§?????????????????????????????°??????????????°?????\??????????????????????????????????????£????????????????????£??????????????????????????????????????????????????\????????????????????????????????°???????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????´???????????§??????

???????????´??° x ???????????????????????????????????????????????????????????°?????????????????????????????????

?????????????????????????????\?????????????????????????????????????????????????????????????????????????????¨?????¨?????????????????????
Input

??\???????????°????????????????????????????§????????????????????????????????????????????????????????????´??° x ??????????????????????§?????????????????????????

x ??? 0 ?????¨?????\?????????????????????????????????????????????????????????????????????????????£????????????????????????
Output

??????????????????????????¨????????\????????¢?????§ x ???????????????????????????

Case i: x

????????§???i ?????????????§????????????????????????????????????????????????????Case??¨?????? i?????????????????????????????\???????????????????????????:?????????????????¨??´??° x ?????????????????????????????\????????????????????????????????\????????????????????????????????????
Sample Input

3
5
11
7
8
19
0

Sample Output

Case 1: 3
Case 2: 5
Case 3: 11
Case 4: 7
Case 5: 8
Case 6: 19
-}

main = prtln 1
prtln :: Int -> IO ()
prtln n = do
  s <- getLine
  let t = aux s n
  if t == "" then return ()
    else do putStrLn t
            prtln (n+1)

aux :: String -> Int -> String
aux s n = if s ==  "0" then ""
          else "Case " ++ (show n) ++ ": "  ++ s