plot x = E^(-1 + ProductLog[a E]) for 0<a<10