A = (-2, 2)
B = (0, 2)
a = Segment(A, B)
c = Circle(B, A)
d = Circle(A, B)
C, D = Intersect(c, d)
poly1, d_1, a_1, b = Polygon(A, B, D)
e = Circle(D, A)
f = LineBisector(A, B)
g = LineBisector(B, D)
h = LineBisector(A, D)
E = Intersect(h, g)
k = Circle(E, D)
F, G = Intersect(k, g)
H, I = Intersect(k, h)
J, K = Intersect(k, f)
poly2, g_1, k_1, h_1, f_1, j, i = Polygon(G, K, H, F, J, I)