#!/usr/local/bin/perl

$sentnum = 0;

if ($ARGV[0] =~ m/\.gz$/) {
    open(FD1, "gunzip -c $ARGV[0] |") or die $!;
} else {
    open(FD1, $ARGV[0]) or die $!;
}
while ($line = <FD1>) {
    $line =~ s/[\r\n]*$//;
    if ($line eq ")") {
	$sentnum++;
    } elsif ($line eq "(") {
    } else {
	$line =~ m/^(\(\d+\s+\d+\s+\"[^\"]*\")/;
	#$line =~ m/^\(\d+\s+\d+\s+(\"[^\"]*\")/;
	$arc = $1;
	$arcs1[$sentnum]{$arc} = 1;
    }
}

$sentnum = 0;
if ($ARGV[1] =~ m/\.gz$/) {
    open(FD2, "gunzip -c $ARGV[1] |") or die $!;
} else {
    open(FD2, $ARGV[1]) or die $!;
}
while ($line = <FD2>) {
    $line =~ s/[\r\n]*$//;
    if ($line eq ")") {
	$sentnum++;
    } elsif ($line eq "(") {
    } else {
	$line =~ m/^(\(\d+\s+\d+\s+\"[^\"]*\")/;
	#$line =~ m/^\(\d+\s+\d+\s+(\"[^\"]*\")/;
	$arc = $1;
	$arcs2[$sentnum]{$arc} = 1;
    }
}

for ($i = 0; $i < $sentnum; $i++) {
    print "Sent $i\n";
    foreach $arc (sort keys %{$arcs1[$i]}) {
	if (!defined($arcs2[$i]{$arc})) {
	    print "> $arc\n";
	}
    }
    print "--\n";
    foreach $arc (sort keys %{$arcs2[$i]}) {
	if (!defined($arcs1[$i]{$arc})) {
	    print "< $arc\n";
	}
    }


}