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