DID PROBLEM 7. YAY PROLOG AFSDHJGLRSDJKAFDF