(define a (cons 1 (cons 8 (cons 5 (cons 4 ())))))
(define b (cons 4 (cons 2 (cons 8 (cons 6 ())))))

(define append 
  (lambda (co zaco)
    (if (null? zaco)
      co
      (cons (car zaco) (append co (cdr zaco)))
    )
  )
)
      
(append a b)