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

(define (rev li1 li2)
    (reverse (concat li1 li2))
)
(writeln (rev (list 1 2) (list 3 4)))