#!/usr/local/bin/perl

## Extract one best hypothesis

use strict;
use warnings;

my $fileName = shift;

open(IFILE, $fileName) or die("Couldn't open the file $fileName\n");
my $line = <IFILE>;
#$line = <IFILE>;
#print $line;
my $count = 0;
while(<IFILE>){
	chomp;
	if($_ eq ''){
		my $sen = <IFILE>;
		print $sen if($sen);
		print STDERR $count,"\n";
		$count = 0;
		#chomp($sen);
		#next unless($sen =~ /^\d+$/);
		#$line = <IFILE>;
# 		#print STDERR "number ", $sen if($sen);
		#print $line if($line);
	}
	$count++;
}
close IFILE;