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