如果数字在球拍中按升序递归而不使用列表，则递归

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)))))))
))