#!/usr/local/bin/perl

$nbest = $ARGV[0];

open(NBEST, $nbest);
while ($line = <NBEST>) {
    if ($line =~ m/^(\d+) (\d+)\t(.*)$/) {
	$sentcount = $1; $ncount = $2; $trans = $3;
	if ($ncount == 0 and $sentcount != 0) { print "\n"; }
	print "$trans\n";
    }

}
close(NBEST);