x = [1..10] where enumFromTo x y = x