let of_array ar = sof_array Strategy.default ar