A = (-9, -13)
H = Point(Segment[A, (x(A) + 5, y(A))])
c = Circle(A, H)
B = Point(c)
F = Point(c)
A_1 = Point(Segment[(x(H) + Distance[A, H], y(A)), (x(H) + Distance[A, H] + 5, y(A))])
c_1 = Circle(A_1, Distance[A, H])
B_1 = Point(c_1)
i = Segment(B, A)
δ = Angle(B, A, F)
m = Segment(B_1, A_1)
j = Segment(A, F)
h = CircleArc(A, B, F)
g = Segment(B, F)
k = Circle(B_1, g)
C, E = Intersect(k, c_1)
n = Segment(A_1, E)
e = CircleArc(A_1, B_1, E)
β = Angle(B_1, A_1, E)
l = Segment(B_1, E)
d = CircleArc(A, F, B)
p = CircleArc(A_1, E, B_1)
D = (-13.100557126318598, -18.43095721760665)