;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: brain
;;;
;;; Description:
;;;   this is my brain
;;;     during a midterm
;;;   i am on acid

(define (draw_dis n)
(color "green")
(fd 300)
( rt 89 )
(color "red")
(fd 600)
( rt 89)
(color "blue")
(fd 900)
(rt 89)
(loop (+ n 1))
)

(define (loop n)
(if (< n 100) (draw_dis n)
(exitonclick))
)

(define (draw)
(bgcolor "black")
(loop 0)


  )


; 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)