;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: I Do (not) Declare!
;;;
;;; Description:
;;;
;;;   I had a plan B
;;;   But without even a C…
;;;   Do D’s get degrees?
;;;

(define (draw)
 (speed 1000)
 (bgcolor "#4A235A")
 (color "#000000")
 (define (campanile width count)
  (if (< count 1) nil
   (begin
    (setposition 0 0)
    (forward width)
    (right .5)
    (campanile width (- count 1))
   )
  )
 )
 (campanile 500 720)
)
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)