Select Code to Download

@lines = <>;

$n=1000;
...
    $max < $_ and $max = $_ for keys %occ;
    print $max," ",$occ{$max} || 1,$/;
    }

# Example input:
)((())))(()())
))(
...
2 1
28 1
662 1