;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Art Brighter than My Future>
;;;
;;; Description:
;;;   <UC Berkeley
;;;    Memes for Edgy Teens tells us
;;;    we suffer as one>


(define (draw)
	(bgcolor "#000000")
	(sun 100 "#ff7f41")
  (exitonclick))

(define (repeat k fn) (if (> k 0)
    (begin (fn) (repeat (- k 1) fn)) nil))

(define (sun len c)
	(color c)
	(speed 0)
(repeat 100 (lambda () (fd len)
          			 (rt 60)
          			 (lt 10)
          			 (forward 200)
                     (rt 144))))

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