#! @PERL@
# @configure_input@

use strict;

my $mode = 1;

sub doit {
	$_ = shift;
	if ( $mode ) { system $_;}
	else { print $_,"\n"};
}


foreach $d (0..10) {
	foreach $s (41..45) {
		my $seed=$s*20 + $d;
		my $outfile = "data/ben.$d.$seed.$n.hk";
		if ( ! -r $outfile ) {
			doit "src/hk data/ben.$d.$seed.$n.tsp --held-karp >$outfile";
		}
		sleep 5;
	}
}
