<>;
$a=2e9;
for(glob<>){
	last if$a<$_;
	$b=0 if$a>$_;
	$a=$_;
	++$b;
}
print$b;