r

A = (3.58, 0.62)
B = (9.42, 0.62)
a = Segment(A, B)
C = Midpoint(a)
D = (6.5, 7.592534976606435)
b = Segment(C, D)
E = (5.566, 3.278)
c = CircleArc(C, B, E)
F = Intersect(c, b, 1)
d = Segment(F, B)
G = (5.786, 6.688)
e = CircleArc(F, B, G)
H = Point(b)
I = (6.5, 8.04878179194219)
f = Segment(H, I)
J = Intersect(e, f, 1)
K = (3.58, 16.820280848462705)
g = Segment(A, K)
L = (9.42, 16.82012307466886)
h = Segment(B, L)
i = Segment(J, A)
k = Circle(J, A)
M = Intersect(k, g, 2)
N = Intersect(k, h, 2)
j = Segment(M, N)
O = (-1.2618432466287923, 4.097134574473264)
p = CircleArc(A, B, O)
P = Intersect(k, p, 2)
q = Circle(B, Segment[B, A])
Q = Point(q)
r = CircleArc(B, Q, A)
R = Intersect(k, r, 1)
S = (14.109608413781803, 11.120643818786231)
s = CircleArc(N, M, S)
t = Circle(M, Segment[M, N])
T = Point(t)
c_1 = CircleArc(M, T, N)
U = Intersect(k, c_1, 1)
V = Intersect(k, s, 2)
l = Segment(M, U)
m = Segment(U, P)
n = Segment(P, A)
a_1 = Segment(B, R)
b_1 = Segment(R, V)
d_1 = Segment(V, N)