let to_array a = Array.copy (Array.sub a.data 0 a.length)