newpath
/a 30 def                     % a=30
/b a 80 add def           % b=a + 80
/rajz                            % eljárás, amely háromszöget rajzol
{10 setlinewidth
b a moveto
0 b rlineto
b 0 rlineto
closepath} def
rajz
/b b 80 add def          % b=b + 80
rajz
/b b 80 add def          % b=b + 80
rajz
stroke
showpage