(% square : figure colored +-                    (% circle : figure colored +-
    {figure colored} _                               {figure colored} _
    {integer} side                                   {integer} radius
)                                                )
