solve[y = [(1 + r/m)^m] - 1,m]