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