400 setwidth
400 setheight
18 setfontsize
-4 4 setxrange
-2 6 setyrange

/f {
   2 exp
} def

/dessin {
   tracerepere
   marks
   gsave
      bleu
      1.75 setlinewidth
      {f} courbe
   grestore

   setTimesItalic
      (O) O drtext
      (Parabole : y = x) -3.5 -1.5 text
   setTimes
      (2) exposant
   
} def

{dessin} relief