procedure sqor(s:string);
begin
     for i:=2 to length(s)-1 do
     if(i==n) then writeln(s)
     else  begin
                swap(s[1],s[i]);
                sqot(s);
                swap(s[1],s[i]);
           end;
end;