let list_iter l ~f = List_iter (l, f)