;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Masterpiece
;;;
;;; Description:
;;;   Only the best coders
;;;    Can see
;;;    The true meaning of this artwork

(define random
  (let ((a 69069) (c 1) (m (expt 2 32)) (seed 19380110))
    (lambda new-seed
      (if (pair? new-seed)
          (set! seed (car new-seed))
          (set! seed (modulo (+ (* seed a) c) m)))
      (/ seed m))))

(define (cadr lst)
  (car (cdr lst))
)

(define (randint . args)
  (cond ((= (length args) 1)
          (floor (* (random) (car args))))
        ((= (length args) 2)
          (+ (car args) (quotient (* (random) (- (cadr args) (car args))) 1)))
        (else (error 'randint "usage: (randint [lo] hi)"))))

(define (start x y)
  (if (not (= x y))
      (begin
        (begin_fill)
        (color (rgb (randint 0 255) (randint 0 255) (randint 0 255)))
        (forward x)
        (left x)
        (circle x)
        (end_fill)
        (start (+ x 1) y)
      )
  )
)

(define (draw)
  ; YOUR CODE HERE
  (bgcolor "white")
  (start 0 500)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (pu)
  (pd)
  (exitonclick)
)

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