# solve equation; solve(left_>r_, x_) := block(s:=solve(left-r, x), x> max(s) ); solve(left_>=r_, x_) := block(s:=solve(left-r, x), x>= max(s) ); solve(left_