>>959は改行のセパレータをfilterで変更できないから
拡張性で>>983に劣ってる

差分プログラミングで変更した例（splitByは>>898）

countFilterSplitBy sep = countFilter {
  body = \_ -> maximum . map length . splitBy (== sep)
}