halve xs = (take n xs,  drop n xs)
     where n = length xs `div` 2 

main = do
  putStrLn $ show $ halve [1,2,3,4]
  putStrLn $ show $ halve [1,2,3]

([1,2],[3,4])
([1],[2,3])