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