B_1 = (14.031409669085985, -3.6427543609300033)
B_2 = (10.595631861237543, -4.704214171484805)
A_1 = (8.416845934309265, -3.67068751383934)
C = (23.612481116988555, -2.804759773649895)
A = (2.718482740804527, -7.804794144421207)
B = (8.277180169762577, -7.86066045023988)
a = Segment(A, B)
D = (2.802282199532538, -8.86625395497601)
E = (6.238060007380981, -8.922120260794683)
b = Segment(D, E)
O = (10.232500873416162, -0.8494390699963096)
c = Circle(O, a)
O' = (20.986764743510882, -1.0729042932710051)
d = Circle(O', b)
e = Segment(O, O')
H = Intersect(c, e, 1.0)
I = Intersect(d, e, 1.0)
r = Segment(I, O')
R = Segment(H, O)
f = Segment(O, O')