;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: The Meaning of 42
;;;
;;; Description:
;;;   The universe is a cruel, uncaring void
;;;   The key to being happy isn't a search for meaning
;;;   Keep yourself busy, and eventually, you'll be dead

(define (a b c)(cond((= b 0) nil)(else (c) (a (- b 1) c)))) (define (z y r) (a y (lambda () (a 4 (lambda()(forward r)(right 90))) (right(/ 360 y))))) (define (u v s p) (cond((= v 0) nil) (else (z s p) (define q (/ (- v 4) 13))(color (rgb q q q)) (end_fill) (begin_fill) (u (- v 1) s (/ p (sqrt 2))) (end_fill))))

(define (draw)
 (bgcolor "black")
 (color "#000")
 (speed 0)
 (begin_fill)
 (u 14 50 600)
 (exitonclick))

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