for (my $i = 0; $i < $n; $i++) {
print $i+1, " of $n -- ";
my $query=`CQLGenerator ../../etc/generate.properties`;
print $query;
my $canon=`CQLParser -c '$query'`;
for (my $i = 0; $i < $n; $i++) {
print $i+1, " of $n -- ";
my $query=`CQLGenerator ../../etc/generate.properties`;
print $query;
my $canon=`CQLParser -c '$query'`;