lakes         :: [[String]] -> Int
lakes (xs:xss) = lake 1 (replicate (length xs + 2) 0) xs xss
lakes         :: [[String]] -> Int
lakes (xs:xss) = lake 1 (replicate (length xs + 2) 0) xs xss
lakes (xs:xss) = lake 1 (replicate (length xs + 2) 0) xs xss