#lang racket
(define (switch-digits x)

  (define (count-digits cnt)
    (let ([y x]) y)
    (if (= (/ x 10) 0)
        (cnt)
        ((count-digits) (/ x 10) (+ cnt 1) (let [(y (/ y 10))] y
    )
  )
  ))
  )