#lang racket
(require "hw2.rkt")
 (define prg '( (define RED "stroke:red") (define END 100) (define (start x y) (when (< x y) (line 0 0 END END RED) ) ) )) (display (execute 200 200 prg '(start 1 0)))