Variadics in Scheme

; python-style equivalence chains
(define (python=? left . args)
  (or (null? args)
      (let ((oper  (car args))
            (right (cadr args)))
        (and (oper left right)
             (apply python=? (cdr args))))))

(python=? 4 < 5 = 5 <= 7 > 2) ;; => #t
(python=? 'panic equal? 'Panic eqv? 'PANIC) ;; => #t