let create l =
    let p = create_ () in List.iter (append_index p) l; p