histogramPairs text = reverse $ sortBy compareCounts $ Map.toList $ countWords ws where
                        ws = filter isWord $ map normalize (words text)
                        compareCounts (_, count1) (_, count2) = compare count1 count2
histogramPairs text = reverse $ sortBy compareCounts $ Map.toList $ countWords ws where
                        ws = filter isWord $ map normalize (words text)
                        compareCounts (_, count1) (_, count2) = compare count1 count2
histogramPairs text = reverse $ sortBy compareCounts $ Map.toList $ countWords ws where
                        ws = filter isWord $ map normalize (words text)
                        compareCounts (_, count1) (_, count2) = compare count1 count2