-- | Given two lists, keeps chopping of the heads of these lists while entries compare to equal
-- removeCommonList [4,5] [1,2,3]  => ([4,5],[1,2,3])
-- removeCommonList [1,4] [1,2,3]  => ([5],[2,3])
-- removeCommonList [1,2] [1,2,3]  => ([],[3])
removeCommonList :: Eq a => [a] -> [a] -> ([a],[a])
removeCommonList [] other  = ([], other)
removeCommonList :: Eq a => [a] -> [a] -> ([a],[a])
removeCommonList [] other  = ([], other)
removeCommonList [] other  = ([], other)