=

string>?

(define < ((lambda() (define old< <) (lambda (x y . rest) (if (old< x y) (if (null? rest) #t (apply < y rest)) #f))))) (< 1 2 3 4 5) => #t (< 1 2 3 4 3) => #f