;;; Scheme Recursive Art Contest Entry
;;;
;;; Please do not include your name or personal info in this file.
;;;
;;; Title: Run this code.
;;;
;;; Description:
;;;    Stare at this for five.
;;;    A tunnel or pyramid?
;;;    Now close it ... woah, cool.

(define (draw)
  ; *YOUR CODE HERE*
  (define (helper x original)
  	(ht)
  	(speed 0)
  	(if (> x (+ 190 original)) 'okay
  	(begin 
  		(fd x)
  		(rt 90.02)
  		(helper (+ x 1) original))))
  (helper 20 20)
  (exitonclick))

; Please leave this last line alone.  You may add additional procedures above
; this line.  All Scheme tokens in this file (including the one below) count
; toward the token limit.
(draw)