What do the following functions do? (define (filter p 1). (cond ((null? 1) ()) (#t (let ((result (filter p (cdr 1)))) (if (p (car 1)) (cons (car 1) result) result))))) (define (pink p 1) (not (null? (filter p 1)))) (define (blue p 1) (- (length 1) (length (filter p 1)))) (define (renmap fx ys) (fx y)) ys)) (define (binmap f xs ys) (map (map (lambda (y) (lambda (x) (renmap fx ys)) xs))