Acse/tests/permutate/permutate.src

int arr[6];

arr[0] = 10;
arr[1] = 11;
arr[2] = 12;
arr[3] = 13;
arr[4] = 14;
arr[5] = 15;

permutate(arr, q[ 4, 2, 0 ]p);

write(arr[0]);
write(arr[1]);
write(arr[2]);
write(arr[3]);
write(arr[4]);
write(arr[5]);