Scheme Canvas

<eval> (clear canvas) (line canvas 20 20 80 20) (line canvas 80 20 80 80) (line canvas 80 80 20 80) (line canvas 20 80 20 20) (fillrect canvas 60 20 20 20) (rect canvas 120 20 20 20) (ellipse canvas 150 50 20) </eval>