(define num-digits (lambda (n) (if (< n 10) 1 (+ 1 (num-digits (quotient n 10))))))
Q: How to make it work on negative integers?