A_1 = (4, 1)
A = (0, 2)
c = Circle(A_1, A)
B = Point(c)
C_1 = Circle(A, B)
C = Intersect(c, C_1, 2.0)
C_2 = Circle(C, Segment[A, B])
C_3 = Circle(B, Segment[A, B])
D = Intersect(C_2, C_3, 2.0)
C_4 = Circle(D, A)
E = Intersect(C_1, C_4, 2.0)
F = Intersect(C_1, C_4, 1.0)
C_5 = Circle(E, A)
C_6 = Circle(F, A)
O = Intersect(C_5, C_6, 2.0)