l1 = Sequence(Segment[(u, 1), (u, 10)], u, 1, 10)
l2 = Sequence(Segment[(1, v), (10, v)], v, 1, 10)
l3 = Sequence(CurveCartesian[u + (v - 5)^(2) / 25, v + (u - 5)^(2) / 25, v, 1, 10], u, 1, 10)
l4 = Sequence(CurveCartesian[u + (v - 5)^(2) / 25, v + (u - 5)^(2) / 25, u, 1, 10], v, 1, 10)
A = Point(l2)
B = Point(l2)
u = Vector(A, B)
C = Point(u)
D = Point(l2)
v = Vector(C, D)
E = Point(l4)
F = Point(l4)
w = Vector(E, F)
G = Point(w)
H = Point(l4)
a = Vector(G, H)
I = Point(l2)
J = Point(l2)
b = Vector(I, J)
K = Point(l2)
c = Vector(I, K)
L = Point(l4)
M = Point(l4)
d = Vector(L, M)
N = Point(l4)
e = Vector(L, N)
O = (11.394, 4.404)
P = (13.944, 4.404)