let iteri f list =
  ignore (List.fold_left (fun i elt -> f i elt; succ i) 0 list)