;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Pop-sick-le
;;;
;;; Description:
;;;   < Schemed up a rocket 
;;;     popsicle for the summer
;;;    61A sesh'>

(define (draw)
  ; YOUR CODE HERE
  (bgcolor "#000000")
  (penup)
  (forward -60)
  (define (repeater times)
;top popsicle
	(cond 
		((= times 0)
		(exitonclick))
	(else 
;center
	(penup)
	
	(lt 90)
	(forward 100)
	(rt 270)


	(pendown)
	  (forward -100)
	  
	  (color "#44acfb")
	  (forward 100) 
	  (color "#e6e6e6")
	  (forward 150)
	  (lt 20)
	  (color "#E73131")
	  (forward 100)
	  (lt 70)
	  (forward 100)
	  (lt 70)
	  (forward 100)
	  (color "#44acfb") 
	  (lt 20)
	  (color "#e6e6e6")
	  (forward 150)
	  (color "#44acfb") 
	  (forward 100)
	  (lt 90)
	  (forward 170)
	  (end_fill)

	;stick
	  (penup)
	  
	  (color "#c7af97")
	  (backward 75)
	  (pendown)
	  (lt 270)
	  (forward 100)
	  (lt 180)
	  (circle 10)
	  (penup)
	  (lt 90)
	  (forward 20)
	  (lt 270)
	  (pendown)
	  (forward 100)
	  (rt 90)
	  (forward 20)
	  
	  (rt 10)
	  (repeater (- times 1))
	  ) ;close else bracket

		) ;close cond 

  ) ;close define
  (repeater 9)
  
  (penup)
  (forward 500)

   (exitonclick)
  
)


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