compact_array_using_objects.ml

 struct
  type 'out t = < get : int -> 'out ; length : int >

  let of_bytes v =
    object
      method length = bytes.length v
      method get i = bytes.get v i
    end

  let of_array v =
    object
      method length = Array.length v
      method get i = Array.get v i
    end

  let length t = t#length
  let get t i = t#get i
end