closepath.ps
%! 200 250 moveto 200 200 rlineto -200 200 rlineto closepath fill showpage