let create l =
  let r = create' () in
    List.iter (add r) l;
    r