Update CLisp recursive square root finder