let fold t ~init ~f = List.fold_left t ~init ~f