split :: [ a ] -> ([a], [a]) -- split "foobar" = ( "foa", "obr" ) split [] = ??? split (x : xs) = let ( here, there ) = split xs in ( ???, ??? )