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