#lang racket
(require "hw2.rkt")
 (define prg '( (define PI2 6.28) (define (start n) (circle-points PI2 (/ PI2 n)) ) (define (circle-points angle step) (when (> angle 0) (circle (floor (+ 100 (* 90 (cos angle)))) (floor (+ 100 (* 90 (sin angle)))) 5 "fill:blue") (circle-points (- angle step) step) ) ) )) (display (execute 200 200 prg '(start 2)))