Functions for splitting lists
How about this for data.list.split?
everyNth n = (map head) . chunksOf n