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