Поменять местами соседние элементы списка X, стоящие на четных местах, с элементами, стоящими на нечетных местах

помогите создать функцию SWAP1 (X) которая меняет местами соседние элементы списка X, стоящие на четных местах, с элементами, стоящими на нечетных местах.