dd>q
for i in {A..p}
{
sed -r 's/(.)(.*)/\2\1/;1h;1d;$G' q|tee q
echo
}