let positive_sum ls =
  List.fold_left ( + ) 0 (List.filter (fun x -> x > 0) ls);;