(define (largest-sieve lst)
  (cond ((= (null? (car lst)) #t)
          (car lst))
        ((> (car lst) (cadr lst))
          (largest-sieve (cons (car lst) (cddr lst))))
        ((< (car lst) (cadr lst))
          (largest-sieve (cons (cadr lst) (cddr lst))))))