(defun dupli (alist)
  (if (null alist)
    nil
    (append
      (list (car alist) (car alist))
      (dupli (cdr alist)))))