pairsSet :: Set (Set (Man, Job))
pairsSet = Set.fromList $ map Set.fromList pairs
pairsSet :: Set (Set (Man, Job))
pairsSet = Set.fromList $ map Set.fromList pairs
pairsSet = Set.fromList $ map Set.fromList pairs