let create ?pos ?len base = let (pos, len) = Ordered_collection_common.get_pos_len_exn ?pos ?len ~length:(Base.length base) in { base = base; pos = pos; len = len; }