>>> genericLength = fmap getSum $ Fold.foldMap (Sum . const 1) >>> genericLength = Fold.foldl' (\n _ -> n + 1) 0
>>> genericLength = fmap getSum $ Scanl.foldMap (Sum . const 1) >>> genericLength = Scanl.mkScanl (\n _ -> n + 1) 0