-- Fail Tests
testF :: Lotus
testF = [4,4,7,2,1,6,3,6,5,4,3,7,2,1,7,3,6,2,1,5,4,2,1,7,5,4,6,3,
         1,5,4,3,6,7,2,7,6,2,1,3,5,4,3,5,4,7,2,1,6]
testF :: Lotus
testF = [4,4,7,2,1,6,3,6,5,4,3,7,2,1,7,3,6,2,1,5,4,2,1,7,5,4,6,3,
         1,5,4,3,6,7,2,7,6,2,1,3,5,4,3,5,4,7,2,1,6]
testF = [4,4,7,2,1,6,3,6,5,4,3,7,2,1,7,3,6,2,1,5,4,2,1,7,5,4,6,3,
         1,5,4,3,6,7,2,7,6,2,1,3,5,4,3,5,4,7,2,1,6]