(defun repli-one (elem n)
  (if (<= n 0)
    nil
    (append
      (list elem)
      (repli-one elem (1- n)))))

(defun repli (alist n)
  (append
    (mapcan
      (lambda (elem)
        (repli-one elem n))
      alist)))