(define (symbol<? sym1 sym2)
  (string<? (symbol->string sym1) (symbol->string sym2)))