character*14::w
  integer::renkyu(14),i,kyujitsu=0
  read *,w(1:7),w(8:14)
  do i=1,14
     if(w(i:i).eq.'o') then
        kyujitsu = kyujitsu + 1
     else
        kyujitsu = 0
     end if
     renkyu(i) = kyujitsu
  end do
  print '(i0)', MAXVAL(renkyu)
end program