(@ draw ps figure +-
    (.* figure.outline.lines line >                                            ** ?!!..
        (# draw ps line)
    )
+
    {square | circle} figure
+
    [> 0] (# area figure)
)
