#lang racket (require "Geometry-Engine.rkt") (mirroring #f) (arcthickness 1) (define phi (/ (+ 1 (sqrt 5)) 2)) (define (inscribed-pentagon circ) (let* ( ... ) (list circ ...))) (sketch (inscribed-pentagon (circle origin 150))) (end-drawing)