-- Child package for Circles
package body Geometry.Squares is
    overriding
    function area(s: Square) return float is
    begin return s.edge ** 2; end area;
end Geometry.Squares;