6. Translate the following Lisp functions to ML. Note that is a function. Can the code be alternatively implemented using a loop in a straightforward fashion? If yes, give the loop implementation as well. A) (define Count (lambda (fx) (cond ((cons? x) (if (f (car x)) (+ 1 (Count f (cdr x))) (Count f (cdr x)))) (else 0)))) B) (define Count (lambda (fx) (cond ((fx) 1) ((cons? x) (if (null? (cdr x)) (Count f (car x)) (else 0)))) (10 points) (+ (Count f (car x)) (Count f (cdr x))))) (10 points)