;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <Life in 61A>
;;;
;;; Description:
;;;   <My face after a 
;;;    lecture by John DeNero
;;;    lolol>

(define (infinite_squares h v) 
	(
	 (bk h) 
	 (lt 90) 
	 (draw (+ h 10) (+ v 10)))
)

(define (charlie_face counter)
	(if (< counter 3)
	(
			(rt 45)
			(fd 50)
			(rt 90)
			(fd 50)
			(lt 90)
			(fd 50)
			(rt 90)
			(fd 50)
			(lt 135)
			(charlie_face (+ counter 1))
	)
	)
)

(define (draw h v)
  (if (< v 200) (infinite_squares h v)
))

(ht)
(penup)
(goto -150 250)
(pendown)
(draw 1 1)
(bk 190)
(penup)
(goto 150 250)
(pendown)
(draw 1 1)
(bk 190)

(penup)
(goto -220 0)
(pendown)
(charlie_face 0)

(draw)