%hello carre%
newpath
100 100 moveto
100 200 lineto
200 200 lineto
200 100 lineto
closepath
stroke

newpath
150 150 moveto
100 0 rlineto
0 0 rlineto
0 100 rlineto
-100 0 rlineto
closepath
stroke

newpath
500 500 50 0 270 arc
0 50 rlineto
50 0 rlineto
stroke

newpath
0 0 moveto
0 790 lineto
610 790 lineto
610 0 lineto
closepath
10 setlinewidth
stroke