;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: QR stands for Quinary Recursion 
;;;
;;; Description:
;;; To attain the base
;;; Use a friend, scan til the end
;;; Real Life Recursion
;;;

(define (m x)
    (cond 
      ((null? x) 0)
      ((= (car x) 2) (begin (left 90) (m (cdr x))))
      ((= (car x) 4) (begin (right 90) (m (cdr x))))
      ((= (car x) 3) (begin (fd 10) (m (cdr x))))
      ((= (car x) 1) (begin (begin_fill) (m (cdr x))))
      ((= (car x) 5) (begin (pu) (m (cdr x))))
      ((= (car x) 6) (begin (pd) (m (cdr x))))
      ((= (car x) 7) (begin (end_fill) (m (cdr x))))
    )
)

(define (b) (m '(6 1 2 3 4 3 4 3 4 3 2 5 3 2 6 7)))

(define (w)
  (pu)
  (right 90)
  (fd 10)
  (left 90)
  (pd))

(define (new-line)
  (pu)
  (right 180)
  (fd 10)
  (right 90)
  (fd 290)
  (right 90)
  (pd))

(define (draw)
  (speed 0)
  (pu)
  (goto (- 145) 145)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(w)(w)(w)(w)(b)(w)(w)(w)(b)(w)(w)(w)(b)(w)(b)(w)(b)(w)(w)(w)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(w)(b)(b)(b)(w)(b)(b)(b)(w)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(w)(w)(w)(b)(w)(w)(w)(b)(w)(b)(w)(b)(w)(w)(w)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(w)(b)(b)(b)(b)(b)(w)(b)(w)(b)(w)(b)(b)(b)(w)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(w)(w)(w)(b)(b)(w)(w)(w)(b)(w)(w)(w)(b)(w)(w)(w)(b)(w)(w)(w)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(w)(w)(w)(w)(w)(w)(b)(w)(w)(w)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(w)(w)(w)(w)(w)(w)(b)(w)(w)(w)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(b)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(w)(w)(w)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(new-line)
       (b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)(b)

  (exitonclick)
  )

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