let fold_left = 
  List.fold_left