s='abcb'

d=0;
while ~all(diag(s==rot90(s),d++))
   p=[s fliplr(s(1:d))];
end
p