(define get_Digit
  (lambda (ind n) ;n € [1, log i]
    (let* ((nd (numDig n))
           (i (- nd ind))
          )
      (if (and (> i 0) (< i nd))
          (round (quotient (remainder n (expt 10 (+ i 1)) ) (expt 10 i) ))
          (begin
            (display "Error: Index outside of bounds")
            #f)

      )
    )
))

(define logB
   (lambda (B x)
     (/ (log x) (log B))))

(define numDig
  (lambda (n)
    (round (add1 (logB 10 n)))
))