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