Plot [LambertW(-log(a))/-log(a),{a,0,1}]