(load "stk-turtle-stuff")

;;; YOUR CODE HERE
(define (wave n)
  (cond ((< n 30) (setx (+ (* n (sin n)) (* 2 n (sin (* 2 n))) (* 3 n (sin (* 3 n)))))
		  (sety (* 8 n (cos n)))
		  (wave (+ n 0.01)))))