<>;
@a=sort{$a->[0]<=>$b->[0]}map[sort{$b<=>$a}/\d+/g],<>;

for$i(0..@a-1){
	$a=$a[$i];
	for$j(0..$i-1){
		$b=$a[$j];
		if($a->[0]>$b->[0]&&$a->[1]>$b->[1]&&$a->[2]>$b->[2]){
			if($r[$i]<$r[$j]+1){
				$r[$i]=$r[$j]+1;
				if($r<$r[$i]){
					$r=$r[$i];
				}
			}
		}
	}
}
print$r+1;