program step;
var n, q, i, j, vk, tvk : longint;
    p : array[1..200000] of longint;
    k : array[1..200000] of shortint;


begin
    readln(n, q);
    for i := 1 to q do begin
        readln(p[i]);
        k[i] := 0;
    end;
    for i := q+1 to n do k[i] := 0;
    for i := 1 to q do begin
        if k[p[i]] = 0 then
            k[p[i]] := 1
        else
            k[p[i]] := 0;
        vk := 0; tvk := 0;
        for j := 2 to n do begin
            if k[j] <> k[j-1] then
                inc(tvk)
            else
                if tvk <> 0 then if vk < (tvk+1) then begin
                                     vk := tvk+1;
                                     tvk := 0;
                                 end;
        end;
        if tvk <> 0 then if vk < (tvk+1) then vk := tvk+1;
        writeln(vk);
    end;
end.