Matriz de Permutação Cíclica

A testemunha de discórdia que estou estudando vai precisar de uma dessas:

qiPermutation[dimension_] :=
Module[{retorno = IdentityMatrix[dimension]},
For[
i = 1, i < dimension, i++,
retorno = retorno.qiRowSwap[dimension, i, i + 1]
];
retorno]