fun split l =
  if null l then ([],[])
  else if length l = 1 then ([hd l],[])
  else ([nth(l,0)],[nth(l,1)]) @ split drop(l, 2)