Ordering relations between non-numbers

I would like to be able to compare two lists, strings, and in general sequences for their ordering: smaller than or greater than. I don't see a procedure for that in the current version.

Do you mean something like this:

#lang racket

(provide
 (contract-out
  [<-anything (-> sequence? sequence? (-> any/c any/c boolean?) boolean?)]))

(define (<-anything seq1 seq2 <)
  (for/and ([s seq1] [t seq2]) (< s t)))

(module+ test
  (require rackunit)
  (require (submod ".."))
  
  (<-anything 1 2 <) ;; these are strange sequences 
  (<-anything "1" "2" char<?)
  (<-anything '[1] '[2] <))

Thanks. Meanwhile I have made my own specialized comparison procedure (predicate) which works fine with my data.