(defun insert-at (new-elem alist n)
  (let ((i 1))
    (mapcan
      (lambda (x)
        (let ((j i))
          (setf i (1+ i))
          (if (= j n) (list new-elem x) (list x))))
      alist)))