let fold f init l = List.fold_left ~f ~init l