(@ area:r square +-                              (@ area:r circle +-
    (** square.side)                                 (* :pi (** circle.radius))
+                                                +
    {square} _                                       {circle} _
)                                                )
