Write a prolog program to my_delete that deletes a top-level atomic element of a list. write another program to deep_delete that deeply deletes an atomic element from an entire list including the element within any sublist. (hint: there are several meta-predicates such as atomic() that can be .) after your program is well defined, it should have the following behavior: ? - my_delete(a, [a, b, a, b, c], l). l = [b, b, c] ? - my_delete(a, [a, b, [a, b, c], a, b, c], l). l = [b, [a, b, c], b, c] ? - deep_delete(a, [a, b, [a, b, c], a, b, c], l). l = [b, [b, c], b, c] ? -