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