;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Well>
;;;
;;; Description:
;;;   <An endless well
;;;    Made of squares
;;;    When does it end?>

(define(repeat n f)(cond((= n 0)nil)(else(f)(repeat(- n 1)f))))(define(rectcle n d)(repeat n(lambda()(repeat 4(lambda()(fd d)(rt 90)))(rt(/ 360 n)))))(define(draw-helper n m d)(cond((= n 0)nil)(else(rectcle m d)(draw-helper(- n 1)m(/ d(sqrt 2))))))(define(draw)(ht)(speed 0)(draw-helper 13 32 1000)(exitonclick))
(draw)