let
insert_after st pos =
let
iter = alloc_iter ()
in
insert_after st ~iter pos; iter