range :: Int -> Int -> [Int]
range x y = case (rangeTest x y) of Left x  -> x
                                    Right y -> error y
range :: Int -> Int -> [Int]
range x y = case (rangeTest x y) of Left x  -> x
                                    Right y -> error y
range x y = case (rangeTest x y) of Left x  -> x
                                    Right y -> error y