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