(define (concat li1 li2)
    (if (empty? li2)
        li1
        (concat (append li1 (list (car li2))) (cdr li2))
    )
)
(writeln (concat (list 1 2 3) (list 3 4 5)))