#!/usr/local/bin/perl

open(FD, "993.seg-mandarin.gb") or die $!;
$count = 0;
while (<FD>) {
    s/[\r\n]*$//;
    @words = split;
    $sentwords[$count] = scalar(@words);
    #print "$count $sentwords[$count]\n";
    $count++;
}
close(FD);

$count = 0;
$max = 0;
open(FD, "993.seg-mandarin.gb.memt") or die $!;
while ($line = <FD>) {
    $line =~ s/[\r\n]*$//;
    
    if ($line eq ")") {
	if ($max+1 != $sentwords[$count]) {
	    print "$count $sentwords[$count] $max\n"
	}
	$count++;
	$max = 0;
    } elsif ($line =~ m/^\(\d/) {
	$line =~ m/^\(\d+\s(\d+)/;
	$temp = $1;
	if ($temp > $max) {
	    $max = $temp;
	}
    }

}