;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Piston Cup
;;;
;;; Description:
;;;   Go Lightning McQueen!
;;;   Who says that art must be still?
;;;   Pixar please hire me

(define (draw)
  (begin (color "green") (pu) (fd 50) (rt 90) (pd) (fd 100) (circle (- 50) 180) (fd 200) (circle (- 50) 180) (fd 100) (pu) (rt 90) (fd 50) (rt 180))
  (begin (color "black") (pu) (fd 100) (rt 90) (pd) (fd 200) (circle (- 100) 180) (fd 400) (circle (- 100) 180) (fd 200))
  (begin (color "red") (rt 90) (fd 50) (pu) (rt 180) (fd 25) (rt 90))
  (define (speed)
    (begin (pu) (fd 150) (circle (- 75) 180) (fd 300) (circle (- 75) 180) (fd 150) (speed)))
  (speed)
  (exitonclick))

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