(defn concat-lists (seq1 seq2)
	(do	(def l seq1)
		(dotimes i (len seq2) 
			(set! l (push l (index seq2 i))))
	))

(print (concat-lists '(1 2 3) '(4 5 6)))
;; (1 2 3 4 5 6)

; pridat example
; >>> (doc::man "push")
; (push list element) - Add an item to the end of a list