let sum_int = List.fold_left ~f:(+) ~init:0