integer(16) N
character(2*10**5) S
integer(16) kcnt,scnt,i
integer ans
read*,N,S
kcnt=0
scnt=0
do i=1,N
  if(S(i:i)==".")scnt=scnt+1
end do
ans=min(scnt,N-scnt)
do i=1,N
  if(S(i:i)=="#")kcnt=kcnt+1
  if(S(i:i)==".")scnt=scnt-1
  if(S(i:i)/=S(i+1:i+1))then
    ans=min(ans,scnt+kcnt)
  endif
end do
print"(I0)",ans
end