(define (liste-teilen eingabe) (liste-teilen-iter eingabe 0 '() '()))

(define (liste-teilen-iter eingabe counter liste1 liste2)
  (cond ((null? eingabe) '() '())
        ((null? (cdr eingabe)) (list (car eingabe)) (list (cdr eingabe)))
        (else (liste-teilen-iter (cdr eingabe)(+ counter 1)
                                 (if (even? counter) (cons (car eingabe) liste1
                                                     (liste1)))
                                 (if (odd? counter) (cons (car eingabe) liste2
                                     (liste2 )))))))

(liste-teilen'(1 2 3 4 5 6 7 8 9))