#lang racket
(require "hw2.rkt")
 (define recur-prg '( (define STYLE "fill:pink;opacity:0.5;stroke:black;stroke-width:2") (define END 15) (define (recur-circ x y r) (circle x y r STYLE) (when (> r END) (recur-circ (+ x r) y (floor (/ r 2))) (recur-circ (- x r) y (floor (/ r 2))) (recur-circ x (+ y r) (floor (/ r 2))) (recur-circ x (- y r) (floor (/ r 2))) ) ) )) (display (execute 400 400 recur-prg '(recur-circ 200 200 100)))