A = (-3.16, 1)
B = Point(Circle[A, 10])
a = Segment(A, B)
C = Point(a)
c = Circle(A, C)
d = Circle(B, C)
b = OrthogonalLine(B, a)
D, E = Intersect(d, b)
e = Line(A, B)
F, G = Intersect(d, e)
f = OrthogonalLine(C, e)
g = OrthogonalLine(G, e)
h = OrthogonalLine(E, b)
i = OrthogonalLine(D, b)
H = Intersect(f, h)
I = Intersect(h, g)
J = Intersect(g, i)
K = Intersect(i, f)
poly1, h_1, i_1, j, k = Polygon(H, I, J, K)
l = Area(c)
m = Segment(A, C)