(load "../lang/functions.lisp")

(defun list-doubler (seed times-to-double)
  (if (< times-to-double 1) seed
   (recur (append seed seed) (- times-to-double 1))))