#!/usr/local/bin/perl

open(FD, "/usr0/aria/eng2spa/corpus/input-xfer.out.debug") or die $!;

while ($line = <FD>) {
    if ($line =~ m/^tree: /) {
	$tgtindex = 1;
	$alignment = "(";
	(@aligns) = ($line =~ m/(\:\d+\s+\"[^\"]*\")+/g);
	foreach $align (@aligns) {
	    ($srcindex, $lex) = ($align =~ m/\:(\d+)\s+\"([^\"]*)\"/);
	    $alignment .= "($srcindex, ";
	    if ($lex =~ m/\s/) {
		(@lexes) = split(/\s+/, $lex);
		foreach $lexitem (@lexes) {
		    $alignment .= "$tgtindex ";
		    $tgtindex++;
		}
		$alignment =~ s/ $/\), /;
	    } else {
		$alignment .= "$tgtindex), ";
		$tgtindex++;
	    }
	}
	$alignment =~ s/\,\s$/\)/; # Remove final comma, add parenthesis
	print $line;
	print $alignment . "\n";
    }

}