let insert_after st pos =
    let iter = alloc_iter () in insert_after st ~iter pos; iter