let
combine_list f =
List
.fold_left (
fun
acc x
->
combine acc (f x))