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