-- |Apply QuickCheck to all properties.
quickCheckAllTests :: IO ()
quickCheckAllTests = do 
                  quickCheck example1and2
                  mapM_ quickCheck5000 
                        [prop_lengthOfSeriesN,
                         prop_quarters,
                         prop_isThirdLargest
                         ]
                  quickCheck5000 prop_sorted
                  quickCheck5000 prop_isUnique
quickCheckAllTests :: IO ()
quickCheckAllTests = do 
                  quickCheck example1and2
                  mapM_ quickCheck5000 
                        [prop_lengthOfSeriesN,
                         prop_quarters,
                         prop_isThirdLargest
                         ]
                  quickCheck5000 prop_sorted
                  quickCheck5000 prop_isUnique
quickCheckAllTests = do 
                  quickCheck example1and2
                  mapM_ quickCheck5000 
                        [prop_lengthOfSeriesN,
                         prop_quarters,
                         prop_isThirdLargest
                         ]
                  quickCheck5000 prop_sorted
                  quickCheck5000 prop_isUnique