9. Here is a function called "deleteall" that strips out all occurrences of a value in a given list. The call to the function: (deleteall 0 '(4030201)) results in the list (4 3 2 1). (define (deleteall atm list) (cond ( (NULL? list) ' ( ) ) ( (EQ? atm (CAR list)) ( ELSE (CONS (CAR list) (deleteall atm (CDR list))) (deleteall atm (CDR list)))) )) Write a recursive Scheme procedure called "tally" that counts the number of occurrences of a value in a given list. Do not use a counter variable, but let the function result in the desired count. For example, the value of (tally 0 ' (4030201)) will be 3. The procedure will be very similar to deleteall.