>	A:=plot(x^2*exp(-3*x),x=0..4,color=red):

>	B:=plot([[t,0,t=0..1],[1,t,t=0..exp(-3)],[t,exp(-3)*t,t=0..1]],color=black):

>	with(plots):

>	display(A,B);

>