(def split (seq pos)
      (if (< pos 1)
          (list nil seq)
          (withs (mid (nthcdr (- pos 1) seq)
                  s2  (cdr mid))
            (wipe (cdr mid))
            (list seq s2))))