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