;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Trumptopia
;;;
;;; Description:
;;;   <Featherweight? Are you
;;;   calling me a lightweight? I'm no
;;;   lightweight - Jeb is
(define (trump x y count)
    (cond
        ((> count 10) nil)
        (else
            (goto x y)
            (stamp)
            (trump (+ x 150) y (+ count 1))
        )
    )
)
(define (draw)
  (penup)
  (addshape 'lol.gif)
  (stamp)
  (addshape 'chinared.gif)
  (trump -650 350 0)
  (addshape 'chinapink.gif)
  (trump -750 250 0)
  (addshape 'money.gif)
  (goto -450 0)
  (stamp)
  (goto 450 0)
  (stamp)
  (addshape 'trump_casino.gif)
  (goto 0 0)
  (stamp)
  (addshape 'gold.gif)
  (goto -100 0)
  (stamp)
  (goto 100 0)
  (stamp)
  (addshape 'chinagreen.gif)
  (trump -650 -100 0)
  (addshape 'chinablue.gif)
  (trump -750 -200 0)
  (addshape 'face.gif)
  (trump -700 -350 0)
  (exitonclick))
; Please leave this last line alone.  You may add additional procedures above
; this line.
(draw)