Area: obj Dimension
%requires Length
%Public
PrimaryUnit:: SquareMeter
SquareMeter: Unit
%unit "m2","m*m",
%Public
thisUnit:: SquareMeter
print::
SquareCentimeter: Unit
%unit "cm2","cm*cm"
%public
print::
mult:
in A: var Length.Meter
in B: var Length.Meter
out R: var squareMeter
symbol::