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