(load "../lang/functions.lisp")
(defun build (n lst)
(if (= n 0) lst
(build (- n 1) (cons (car lst) lst))))
(defun build2 (n lst)
(build2 (- n 1) (build 200 lst))))
(length (build2 200 (build2 200 '(1 1 1 1 0 0 0 0))))