program prvi;

uses crt;

var
  n, q, bi, i, j, vpn, max, s, t:longint;
  a:string;
  b, v:array of longint;
  c, op, d:string;
  l:boolean;

procedure String1;
  begin
  for i:=1 to n do
    a:=a+'L';
  end;

procedure Izmjena;
  begin
  c:=copy(op, 1, 1);
  d:=copy(op, 2, 1);
  l:=false;
  for s:=1 to j do
    begin
    if s mod 2=0 then
      if op[s]=c then
        begin
        l:=true;
        exit;
        end;
    if s mod 2=1 then
      if op[s]=d then
        begin
        l:=true;
        exit;
        end;
    end;
  vpn:=j;
  end;

procedure Odredivanje_podniza;
  begin
  l:=false;
  vpn:=0;
  for j:=2 to n do
    begin
    for t:=1 to n-j+1 do
      begin
      op:=copy(a, t, j);
      Izmjena;
      end;
    if j=2 then
      max:=vpn
    else
      if vpn>max then
        max:=vpn;
    end;
  v[i-1]:=max;
  end;

begin
  clrscr;
  readln(n, q);
  String1;
  setlength(b, n);
  setlength(v, n);
  for i:=1 to q do
    begin
    readln(bi);
    if a[bi]='L' then
      begin
      delete(a, bi, 1);
      insert('R', a, bi)
      end
    else
      begin
      delete(a, bi, 1);
      insert('L', a, bi);
      end;
    Odredivanje_podniza;
    end;
  for i:=0 to q-1 do
    writeln(v[i]);
  //readln;
end.