program W implicit none character(14)::S integer::cnt=0,ans=0 integer::i read*,S(1:7) read*,S(8:14) do i=1,14 if(S(i:i)=="o")then cnt=cnt+1 ans=max(cnt,ans) else cnt=0 endif end do print"(i0)",ans end program W