Bsp: sum' :: ... -> ... ; sum' x = ...
sum' :: ... -> ... ; sum' x = ...
f = foldb ... h
h x y = f (f' x ++ f' y)
mpss