VZS:farok-reku-append

(define (appendv1 A B)
  (farok-reku-append B A B))

(define (farok-reku-append akku A B)
  (cond
    [(empty? A) akku]
    [else
     (define fejA (first A))
     (define farokA (rest A))
     (define akku2(cons fejA B))
     (appendv1 farokA akku2)
    ]))


(writeln (appendv1(list 5 2 1) (list 3 6 9)))