S = (2.72, 1.22)
M = (5.58, 1.22)
a = Line(S, M)
b = OrthogonalLine(S, a)
c = Circle(S, M)
N = Midpoint(S, M)
P, A = Intersect(c, b)
d = CircleArc(N, A, P)
X = Intersect(d, a)
e = Circle(A, X)
B, E = Intersect(c, e)
f = Circle(B, Segment[A, B])
C, I = Intersect(c, f)
g = Circle(E, Segment[A, E])
D, K = Intersect(g, c)
h = Segment(A, E)
i = Segment(E, D)
j = Segment(D, C)
k = Segment(C, B)
l = Segment(B, A)