A = (-0.98, -0.16)
a_3 = 8
B = Point(Circle[A, 8])
a = Segment(A, B)
b = OrthogonalLine(B, a)
c = Circle(B, 4)
C = Intersect(c, b, 2)
d = Line(C, a)
e = Circle(C, 5)
D = Intersect(e, d, 1)
poly1, a_1, b_1, c_1, d_1 = Polygon(A, B, C, D)
E = Point(b_1)
f = Line(E, a)
F = Intersect(f, d_1)
poly2, f_1, e_1, b_2, a_2 = Polygon(F, E, B, A)
EB = Distance(E, B)
M: (EB, poly2)
p = Perimeter(poly2)
K: (EB, p)
q = Perimeter(poly1)