%!
/2pi 1 1 atan 8 mul def
72 72 translate
3.5 3.5 scale
0 setlinewidth
0 -10 moveto 0 720 lineto stroke
-648 0 moveto 648 0 lineto stroke
/x 0 def
/y 0 def
1 1 12000
{
  1.5 exp .2 mul
  dup floor sub
  /phase exch 2pi mul def
  x y moveto
  /x x phase cos add def
  /y y phase sin add def
  x y lineto
  stroke
} for

showpage