> plot( [w*exp(w),w,w=-4..1], view=[-1..3,-4..1]);

[Maple Plot]

>