program Untitled;
var
   d, m, n, i, a, b, j, k : longint;
   c, isp : array [ 1..1000 ] of longint;
   p : array [ 1..1000, 1..1000 ] of integer;
begin
     readln ( d, m, n );
     for i := 1 to m do
     begin
          readln ( a, b );
          p[a, b] := 1;
          p[b, a] := 1;
     end;
     for i := 1 to n do
     begin
          readln ( c[i] );
     end;
     for i := 1 to n do
     begin
          write ( c[i], ' ' );
          isp[c[i]] := 1;
          for j := 1 to d do
          begin
               if p[c[i], j] = 1 then
               begin
                    if isp[j] = 0 then
                    begin
                         write ( j, ' ' );
                         isp[j] := 1;
                    end;
                    for k := 1 to n do
                    begin
                         if (p[j, k] = 1) and (isp[k] = 0) then
                         begin
                              write ( k, ' ' );
                              isp[k] := 1;
                         end;
                    end;
               end;
          end;
     end;
readln;
end.