let make_steam ?(proj = []) ?(n = (-1)) ?(r = Zero) ?(a = 0) ?(c = 0.) ?(g = -1.)() = { proj = proj; n = n; r = r; a = a; c = c; g = g; }