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