;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Inception>
;;;
;;; Description:
;;;   <Simplicity of circles
;;;    circle inside circles
;;;    circles in space>

(define (draw)
  (bgcolor "black")
  (speed 10)
  (define (infinity r)
    (circle r)
    (if (<= r -100)
      (setposition 0 0)
      (infinity (- r 2)))
  )
  (color '"#6ef442")
  (infinity 100)
  (color '"#f44242")
  (left 45)
  (infinity 100)
  (color '"#f4b342")
  (left 45)
  (infinity 100)
  (color '"#4286f4")
  (left 45)
  (infinity 100)

  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)