Program a1;
var n,m,k,sol:integer;
    a:array[0..1001,0..1001] of boolean;
    c:array[0..1001] of boolean;
    ok:boolean;
    v:array[0..1001] of integer;
    inp,o:text;
procedure citeste;
var i,x,y:integer;
begin
   assign(inp,'dusman.in');
   assign(o,'dusman.out');
   reset(inp);
   rewrite(o);
   read(inp,n,k,m);
   for i:=1 to m do
      begin
         read(inp,x,y);
         a[x][y]:=true;
         a[y][x] := true;
      end;
  close(inp);
end;

procedure afis;
var i:integer;
begin
  for i:=1 to n do
     write(o,v[i],' ');
  close(o);
  ok:=true;
end;

procedure back(s:integer);
var i : integer;
begin
   if s = n+1 then begin
      inc(sol);
      if sol = k then afis;
   end
   else begin
      for i:=1 to n do
            if (not a[i][v[i-1]]) and (not c[i]) then begin
                v[s] := i;
                c[i] :=true;
                back(s+1);
                c[i]:=false;
            end;
   end;
end;

begin
  sol:=0;
  ok:=false;
  citeste;
  back(1);
  end.