A = (-5, -13)
B: (x(A), y(A) - 4)
L = Point(Segment[A, (x(A) + 10, y(A))])
e = Circle(B, Distance[A, L])
c = Circle(A, L)
f: x = x(A)
O, P = Intersect(e, f)
M, N = Intersect(c, f)
C = Point(Segment[A, M])
h = OrthogonalLine(C, f)
E: (x(A), y(O) - Distance[C, M])
i = OrthogonalLine(E, f)
G, H = Intersect(c, h)
I, J = Intersect(e, i)
k = CircleArc(B, J, I)
p = CircleArc(B, J, I)
q = CircleArc(A, H, G)
r = CircleArc(A, H, G)
j = Segment(G, H)
l = Segment(I, J)
K = (-13.245429694487745, -16.457068748426376)