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