Recursive bisection of a simple list in Mathematica

I need a function to recursively split/bisect a list in Mathematica. It is very simple and should not take long for someone who is familiar with the language. Hit me up for details.