splitEithers :: [Either a b] -> ([a], [b])
-- ^ Teases a list of 'Either's apart into two lists
splitEithers [] = ([],[])
splitEithers :: [Either a b] -> ([a], [b])
splitEithers [] = ([],[])
splitEithers [] = ([],[])