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