horizontalsMax n grid = let horizontalsLine line = maximum $ map product $ ngrams n line
                   in maximum $ map horizontalsLine grid
horizontalsMax n grid = let horizontalsLine line = maximum $ map product $ ngrams n line
                   in maximum $ map horizontalsLine grid
horizontalsMax n grid = let horizontalsLine line = maximum $ map product $ ngrams n line
                   in maximum $ map horizontalsLine grid