use List::Util qw(max);
$input=<>.<>;
$input=~s/(\r|\n)//g;
@days=map {length($_)} $input=~/o+/g;
print @days?max(@days):0;