23e

/Times-Roman findfont 35 scalefont setfont
0 0 moveto (Hello) show
/Times-Roman findfont 150 scalefont setfont
newpath 80 220 moveto (Hello) false charpath clip
/inch {72 mul} def
/circle { 0 setlinewidth newpath 0 360 arc stroke} def
/spiro {
	/ncircles exch def
	ncircles {
		80 0 65 circle
		360 ncircles div rotate
		} repeat
	} def
/drawx { 3 3 rmoveto -6 -6 rlineto
	0 6 rmoveto 6 -6 rlineto stroke} def
0 setlinewidth
4 inch 3 inch translate
90 spiro
2 inch 1 inch translate
200 spiro
-3 inch 0 inch translate
150 spiro
grestore
showpage
.

0