//define the logic first
(define
invert-number-aux (λ (n res)
                Â
(if (empty? n) res
                    Â
(invert-number-aux
                     Â
(take n (-(length n) 1)) ;new n
                     Â
(append res (list (last n))) ;new res
                   Â
  )
                    Â
)))
(define
invert-number (λ (n)
                Â
(string->number (list->string (invert-number-aux
(string->list(number->string n)) '())))
                Â
))