let on_array f = define_array := f