#!/usr/bin/perl
$max =0;
$s=<>;
while($s=~/[…]+/g){
    $len =length($&)/3;
    $len=0 if $len<1;
    $max=$len if$max<$len;
}
print $max,$/;