;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Deep Into The Sea
;;;
;;; Description:
;;;     The waves crash on me
;;;     And take me down to the sea
;;;     Deep, where none can see


(define (draw)
	(square 280 "#c9e4f8")
	(square 240 "#92caf4")
	(square 200 "#58a9e7")
	(square 160 "#116db4")
	(square 120 "#0a4b7e")
	(square 80 "#0a3d66")
	(square 40 "#063052"))
  

(define (repeat n func)
  (if (> n 1)
      (begin (func) (repeat (- n 1) func))
      (func)))

(define (square len c)
  (color c)
  (speed 0)
  (lt 2)
  (repeat 72
    (lambda () (fd len) (rt 90) (fd len) (rt 90) (fd len) (rt 90) (fd len) (rt 95))))



; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)