class (Ord a) => Range a where
  fromInclusive :: (a,a) -> a
  fromInclusive tup = fst tup
  toExclusive :: (a,a) -> a
  toExclusive tup = snd tup
  isInRange :: (a,a) -> a -> Bool
  isInRange (x,y) z = z > x && z < y