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