;;; Your entry for the Scheme contest
;;;
;;; Title: 
;;;   <CUBES>
;;;
;;; Description:
;;;   <Look into my stars
;;;	  there's something more than it seems 
;;;	I have 3D cubes!>
	 

(define (snowflake)
	(define (helper lengthside level)
		(cond ((eqv? level 0) (forward lengthside))
			(else (let ((len (/ lengthside 3)))
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120)
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120)
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120)
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120)
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120)
				(helper len (- level 1))
				(left 60)
				(helper len (- level 1))
				(right 120))
			)
		)
	)
	(helper 600 2)
)

(snowflake)