test : [a] -> ([a], [a])
test l = case l of
  x ++ y -> (x, y)