;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: <M E M E S>
;;;
;;; Description:
;;;   <too soon not too soon
;;;    one vote equals one prayer
;;;    rip based harambe>

(define (draw)
  (define (thick thickness tallhalf)
    (cond
      ((zero? tallhalf) penup)
      (else (pendown) (right 90) (forward thickness) (right 90) (forward 1) (right 90) (forward thickness) (left 90) (forward 1) (right 180) (thick thickness (- tallhalf 1)))
    )
  )
  (define (i)
    (right 90) (forward 20) (thick 160 10) (right 90) (forward 160) (right 180))
  (define (are)
    (i) (forward 80) (thick 60 10) (forward 100) (thick 60 10))
  (define (a)
    (are) (forward 20) (right 90) (forward 60) (left 90) (i))
  (define (r)
    (are) (right 90) (forward 60) (left 90) (thick 20 30) (left 90) (forward 20) (left 90) (forward 20) (right 180) (thick 20 10) (right 90) (forward 20) (left 90) (thick 20 20))
  (define (m)
    (i) (forward 160) (thick 100 10) (right 90) (forward 50) (left 90) (forward 20) (i) (forward 160) (right 90) (forward 50) (left 90) (i))
  (speed 0)
  (penup)
  (goto -340 300)
  (i)
  (penup)
  (goto -340 220)
  (thick 60 10)
  (penup)
  (goto -280 300)
  (i)
  (penup)
  (goto -240 300)
  (a)
  (penup)
  (goto -140 300)
  (r)
  (penup)
  (goto -40 300)
  (a)
  (penup)
  (goto 60 300)
  (m)
  (penup)
  (goto -120 -110)
  (left 90)
  (color (rgb 0 0 0))
  (thick 180 50)
  (thick 180 50)
  (thick 180 50)
  (goto -30 -100)
  (color (rgb 1 0 0))
  (left 90)
  (a)
  (left 90)
  (forward 60)
  (right 90)
  (forward 20)
  (thick 60 10)
  (penup)
  (goto -10 60)
  (right 180)
  (color (rgb 1 1 1))
  (a)
  (penup)
  (goto 90 60)
  (color (rgb 0 0 1))
  (i)
  (forward 20)
  (thick 80 10)
  (forward 100)
  (thick 60 10)
  (forward 80)
  (thick 80 10)
  (ht)
)

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