(define (concat li1 li2)
    (if (empty? li2)
        li1
        (concat (append li1 (list (car li2))) (cdr li2))
    )
)