(define x '("aha" 8 5 4)) (define append (lambda (co zaco) (if (null? zaco) co (cons (car zaco) (append co (cdr zaco))) ) ) ) (define obratseznam (lambda (a) (if (null? a) () (if (null? (cdr a)) a (append (list (car a)) (obratseznam (cdr a))) ) ) ) ) (obratseznam x)