4- What does the following Scheme function do? DEFINE (equal listl list2) (COND (NOT (LIST? listl)) (EQ? listl list2)) ( (NOT (LIST? list2)) #F) (NULL? listl) (NULL? list2)) ((NULL? list2) #F) (equal (CAR listl) (CAR list2) ) (equal (CDR list1) (CDR list2))) #F) (ELSE 4- What does the following Scheme function do? DEFINE (equal listl list2) (COND (NOT (LIST? listl)) (EQ? listl list2)) ( (NOT (LIST? list2)) #F) (NULL? listl) (NULL? list2)) ((NULL? list2) #F) (equal (CAR listl) (CAR list2) ) (equal (CDR list1) (CDR list2))) #F) (ELSE