;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Our Grades in this Class>
;;;
;;; Description:
;;;   <I am really fucked
;;;    Where did the semester go
;;;    Fuck Fuck Fuck Fuck Fuck>

(define (draw)
	(define (curve len lvl)
	  (cond ((= lvl 0) (fd len))
			(else (curve len (- lvl 1))
			(rt 90)
			(curve len (- lvl 1))
			(lt 90))))
	(curve 10 8))

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