var a,b:integer;
begin
read(a,b);
write(b,' ',a);
end.

uses SysUtils;

var n,i,j : word;
pointer: boolean;
begin
   readln(n);
   if (n = 1) then
      writeln('failed')
   else
     for i := 2 to n do
     begin
       pointer:=false;
       for j := 2 to round(sqrt(i)) do
           if (i mod j = 0) then
           begin
                pointer := true;
                break;
           end;
           if (pointer = false) then
              writeln(i);
     end;
end.

var i,j,g:longint;
r:array[1..50000] of boolean;
begin
readln(g);

for i:=2 to g do
begin
j:=i;
while j+i<= g do
  begin
   inc(j,i);
   r[j]:=true;
  end;
end;

for i:=1 to g do
  if not r[i] then writeln(i);
end.