#!/usr/bin/env perl
use strict;
use warnings;

my (@sum, @max);

while (my $line = <DATA>) {
    my $i = 0;
    foreach my $item ( split /\s+/, $line ) {
        $sum[$i] = 0 unless defined $sum[$i];
        $max[$i] = 0 unless defined $max[$i];
        if (!$item) {
            $sum[$i]++;
            $max[$i] = $sum[$i] > $max[$i] ? $sum[$i] : $max[$i];
        }
        else {
            $sum[$i] = 0;
        }
        $i++;
    }
}
print "@max\n";

__DATA__
1 1 2 0 0 1 0 1
1 1 2 0 0 1 1 0
2 1 2 0 1 2 0 1
1 1 0 1 0 1 0 1

0 0 1 3 2 0 2 1