checkSeats :: (Int, Int) -> (Int, (Int, Int)) ->  Bool
checkSeats a b = ((fst a) <= (fst $ snd b)) && ((snd a) >= (snd $ snd b))
checkSeats :: (Int, Int) -> (Int, (Int, Int)) ->  Bool
checkSeats a b = ((fst a) <= (fst $ snd b)) && ((snd a) >= (snd $ snd b))
checkSeats a b = ((fst a) <= (fst $ snd b)) && ((snd a) >= (snd $ snd b))