Hello everyone, I am very new to Maple so please bear with me. I have created a procuedure that rearranges 

NaturalNumbers:=proc(k)
[$1..2*k-1]
end proc;

Into 

eq_arrangement:=proc(k)  local i,j,a;  for i from 1 to k-1 do 
  a[2*i-1]:=k+i; 
  a[2*i]:=k-i; 
end do:
[k,seq(a[j],j=1..2*(k-1))];end proc; 

My question is how I can repeat this procudure the sufficient number of times until I get back to [$1..2*k-1] in that order. 

Thank you so much!