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