procedure sub(s:longint);
var
i,j:.longint;
begin
if s>n then begin
print
end
else for i:=1 to n do
if b then begin
a[s]:=i;
b:=false;
sub(s+1);
end;
end;{n 为几位}