A = (-1.5356707918323944, 4.079348964287056)
B = Point(Circle[A, 1.6])
a = Segment(A, B)
b = OrthogonalLine(A, a)
c = OrthogonalLine(B, a)
d = Circle(B, 2.588854381999832)
C = Intersect(d, c, 2)
e = OrthogonalLine(C, c)
D = Intersect(b, e)
f = Segment(B, C)
g = Segment(C, D)
h = Segment(D, A)
E = (1.37078844136917, 2.28299568821109)
F = Point(Circle[E, 1.6])
i = Segment(E, F)
j = OrthogonalLine(F, i)
k = OrthogonalLine(E, i)
p = Circle(F, f)
G = Intersect(p, j, 2)
l = OrthogonalLine(G, j)
H = Intersect(k, l)
m = Segment(F, G)
n = Segment(G, H)
q = Segment(H, E)