/d {
400 400 150 0 360 arc
450 400 moveto
400 400 50 0 360 arc
} def

/di {
400 400 150 0 360 arc
450 400 moveto
400 400 50 360 0 arcn
} def

/e {erasepage} def
