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