Рекурсия числа, если оно находится в порядке возрастания в Racket без использования списка

Question

Эта программа запрещает использовать любые виды списка.Я попробовал следующий метод, но это безумие.

(define (order2 number2)
  (cond ((remainder number2 10) 1)
        (else (order3 number3))))

(define (order3 number3)
  (cond ((< number3 10) number3)
        (else
         (define (order4 number4)
           (cond (< remainder (quotient number4 10)))
           (else (order4 (quotient number4)))))))
))