lake                         :: Int -> [Int] -> [String] -> [[String]] -> Int
lake i xs     []     []       = 0
lake                         :: Int -> [Int] -> [String] -> [[String]] -> Int
lake i xs     []     []       = 0
lake i xs     []     []       = 0