Мне понадобилось пересортировать строку. Поменять местами чётные и нечётные значения местами. Найти чтото вразумительное в помощи я не смог(может искал плохо)

. И в итоге появилось такое чудо.
%a = $option(stringlistRecentChannels)
%a = $str.replace(%a,",",":")
%channels[] = $str.split(",",%a)
%n = 0
foreach(%y,%channels)
{
%n++
}
for(%i=0;%i<%n;%i=$(%i+2))
{
%text1=%text1 %channels[%i]
}
for(%i=1;%i<%n;%i=$(%i+2))
{
%text2=%text2 %channels[%i]
}
%text1 = $str.stripleft(%text1)
%text2 = $str.stripleft(%text2)
%b1[] = $str.split(" ",%text1)
%b2[] = $str.split(" ",%text2)
%n = 0
foreach(%y,%b1)
{
%n++
}
for(%i=0;%i<%n;%i++)
{
%text=%text %b2[%i] %b1[%i]
}
%text = $str.stripleft(%text)
%text = $str.replace(%text,","," ")
echo %a
echo %text
Может кто подскажет можно ли это сделать както короче или может кто встречал функцию которая делает это.