-- 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;