beginfig(1);
draw (0,0){right}
for x=0 step .1 until 20:
..(x,x*x)
endfor;

endfig;
end