Напишите функцию, аналогичную встроенной функции замены subst в списке s взаимную замену x на y

Напишите функцию, аналогичную встроенной функции замены subst в списке s выражения x на y, но производящую взаимную замену x на y, т.е. x->y, y->x.