let
update_coeff t c = make_steam ~proj:(t.proj) ~n:(t.n) ~r:(t.r)
~a:(t.a) ~c:c ()