split

[procedure] split seq pos

(def split (seq pos)
  (withs (mid (nthcdr (- pos 1) seq) 
          s2  (cdr mid))
    (nil! (cdr mid))
    (list seq s2)))