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)