camping.hs

readInts :: IO [Int]
readInts = fmap (take 3 . map read.words) getLine

camping n = do
    (x:y:z:[]) <- readInts
    if not $ z == 0
       then
            do
            let day = ((z `div` y) * x + (z `mod` y))
            putStrLn $ "Case " ++ (show n) ++ ": " ++ (show day)
            camping $ n+1
        else
            putStrLn " "
main =
    camping 0