%% trace des courbes y = x^2, et y = x^2 - 4
/f {	    %% definition de la fonction f
   setxvar  %% on nomme x la variable sur la pile
#rpn# x^2
} def
/g {	    %% definition de la fonction g
   setxvar  %% 
#rpn# x^2-4
} def

tracerepere 
marks
bleu {f} courbe
rouge {g} courbe

gris {f} {g} hachcourbes