A = (-0.6041072861760091, 1.0956085636913608)
B = (0.14033140471038877, 1.103128146427587)
f = Segment(A, B)
g = OrthogonalLine(A, f)
C = Point(g)
h = Segment(C, B)
i = Segment(C, A)
J = Midpoint(i)
I = Midpoint(f)
j = OrthogonalLine(A, h)
H = Intersect(h, j)
k = Segment(H, J)
l = Segment(H, I)