#!/usr/bin/perl
#-*-perl-*-


use strict;
use FindBin;
use lib $FindBin::Bin.'/../lib';

use Lingua::Align::Corpus::Parallel::Moses;


my $bitext = new Lingua::Align::Corpus::Parallel::Moses(
	-alignfile => 'moses/model/aligned.grow-diag-final-and');

my @src=();
my @trg=();
my %links=();

while ($bitext->next_alignment(\@src,\@trg,\%links)){
    print '';
    %links=();
}