list1 = Sequence(Line[(0, (5 * i)), (1, (5 * i))], i, 1, 100, 1)
list2 = Sequence(Line[((5 * i), 0), ((5 * i), 1)], i, 1, 100, 1)
A = (10, 30)
B = (10, 26)
f = Segment(A, B)
C = (12, 30)
g = Segment(A, C)
D = Point(f)
E = (11, 28)
h = Segment(D, E)