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

(defun build (n lst)
  (if (= n 0) lst
    (build (- n 1) (cons (car lst) lst))))

(defun build2 (n lst)
  (if (= n 0) lst
    (build2 (- n 1) (build 200 lst))))

(build2 200 (build2 200 (build2 200 (build2 200 '(1 1 1 1 0 0 0 0)))))