(define split-by
(lambda (n lst)
(let ((list-size (length lst)))
(if (not (= 0 (modulo list-size n)))
(println "list length must be divisible by n"))
(if (null? lst)
'()
(cons (take lst n) (split-by n (drop lst n)))))))