A = (-1, 3)
b = OrthogonalLine(A, a)
B = Intersect(b, a)