program step;

var
   n, q, izmj, i : longint;
   kor : array[1 .. 200001] of char;

function opt : longint;
var
   i, j, t, max : integer;
begin
   max := 0; j := 0;
   repeat
      i := j+1;
      j := i;
      while (kor[j]<>kor[j+1]) and (j<n) do Inc (j);
      t := j-i+1;
      if t>max then max := t;
   until i>n;
   opt := max;
end;

begin
   readln (n, q);
   for i := 1 to n+1 do kor[i] := 'L';
   for i := 1 to q do begin
      readln (izmj);
      case kor[izmj] of
         'L' : kor[izmj] := 'R';
         'R' : kor[izmj] := 'L';
      end;
      writeln (opt);
   end;
end.