splitn

[procedure] splitn n xs

(def splitn (n xs)
  (let acc nil
    ((afn (n xs)
       (if (or (no xs) (<= n 0))
           (list (rev acc) xs)
           (do (push (car xs) acc)
               (self (- n 1) (cdr xs)))))
     n xs)))