#lang racket
(require "hw2.rkt")
 (define prg '( (define STYLE "fill:red;opacity:0.2;stroke:red;stroke-width:3") (define START 195) (define END 10) (define (circles x r) (when (> r END) (circle x 200 r STYLE) (circles (+ x (floor (/ r 2))) (floor (/ r 2))) ) ) )) (display (execute 400 400 prg '(circles 200 START)))