A' = (-9, 5)
B' = (-5, 5)
a' = Segment(A', B')
C' = (-9, 4)
D' = (-7, 4)
b' = Segment(C', D')
E' = (-9, 3)
F' = (-4, 3)
c' = Segment(E', F')
A = (-1, -2)
K = (5, -2)
r = Line(A, K)
c_2 = Circle(A, Segment[E', F'])
B, O = Intersect(c_2, r)
c_1 = Circle(A, Segment[C', D'])
c_3 = Circle(B, Segment[A', B'])
C, E = Intersect(c_3, c_1)
poli1, b, a, c = Polygon(A, C, B)