4clj; solve problem 049 - split-at