let make_matrix sx sy init = let res = create_fresh sx in let res_ar = res.ar in for i = 0 to res.vlix do unsafe_set_ar res_ar i (make sy init) done; res