var a:array[0..10000007] of longint;
    mang:array[1..51] of longint;
    i,n,k,j:longint;
begin
//assign(input,'xephang.inp');reset(input);
//assign(output,'xephang.out');rewrite(output);
 readln(n,k);
for i := 1 to n do read(a[i]);
 if k < a[1] then
  begin
    for i := n + 1 downto 2 do
       a[i] := a[i-1];
       a[1] := k;
    writeln(1);  end;
 if k > a[n] then
  begin
     a[n+1]:=k;
    writeln(n+1);
  end;
  for i := 1 to n + 1 do
 if (a[i]<k) and (k<a[i+1]) then
  begin
   for j := n + 1 downto i + 2 do
     a[j] := a[j-1];
     a[i+1] := k;
     writeln(i+1);
     break;
  end;
for i := 1 to n + 1 do
write(a[i],#32);
//close(input);close(output);
end.