Scheme Canvas

<eval> (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 80 40) (rect canvas 120 20 140 40) </eval>