plot(r*exp(-r),r=0..10)