#!/usr/local/bin/perl

$nbest = $ARGV[0];

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

}
close(NBEST);