-- |
-- Given some @(min, max)@ bounds, check if an 'Int' is in them.
-- @min@ is inclusive, @max@ isn't.
inRange :: (Int, Int) -> Int -> Bool
inRange (min, max) check = min <= check && check < max
inRange :: (Int, Int) -> Int -> Bool
inRange (min, max) check = min <= check && check < max
inRange (min, max) check = min <= check && check < max