-- Child package for Circles
package body Geometry.Circles is
    function area(c: Circle) return float is
    begin return 3.14159 * c.radius ** 2; end area;
end Geometry.Circles;