use strict;

my @keywords = split( /\n/, `cat conf/keywords.txt` );
my @functions = split( /\n/, `cat conf/functions.txt` );
my @ks = (6 .. 10);

for my $keyword ( @keywords ) {
	for my $function ( @functions ) {
		for my $k ( @ks ) {
			my $filename = "output/$keyword\_$function\_$k.txt";
			my $cmd = "./bin/knn $function $keyword $k >$filename";
			print "$cmd\n";
			`$cmd`;
		}
	}
}