Solve[r == s/(1 - (l s/m)^m), {m}]