@@ -472,6 +472,9 @@ main = withArg avgll >>= print
472472
473473### Line Length Histogram
474474
475+`classify` is not released yet, and is available in
476+`Streamly.Internal.Data.Fold`
477+
475478``` haskell
476479llhisto =
477480 S.fold (FL.classify FL.length)
@@ -480,7 +483,7 @@ llhisto =
480483 . S.unfold FH.read
481484
482485 where
483− bucket n = let i = n `div` 10 in if i > 9 then (9,n) else (i,n)
486+ bucket n = let i = n `mod` 10 in if i > 9 then (9,n) else (i,n)
484487
485488main = withArg llhisto >>= print
486489```