let fold_left f init s = String.fold s ~init ~f