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