What does this function do? (define (x lis) (cond ((null? lis) 0) ((not (list? (car lis))) (+ 1 (x (cdr lis)))) (else (+ (x (car lis)) (x (cdr lis)))) ))