draw-spiral.scm