let iter xs ~f = iteri xs ~f:(const f)