var a:char;
    flag:boolean;
    i,n,k:integer;
begin 
  readln(n);
  k:=0;
  flag:=false;
  {for i:=1 to n do begin
    read(a);
    if a='#' then flag:=true
    else if flag then inc(k)
  end;
  }repeat
    read(a);
    if a='#' then flag:=true
    else if flag then inc(k);
  until eoln;
  write(k)
end.

