(define dec-cnt3 (lambda (x)
(if (> x 0) (dec-cnt3 (- (- (- (- (- (- (- x 1) 1) 1) 1) 1) 1) 1)) 0)
))
(dec-cnt3 100000)