print " query $_ - $query\n";
my $correct = read_file("$norman < $afile |");
my $tested = read_file("$compiler < $qfile | $norman |")
print " query $_ - $query\n";
my $correct = read_file("$norman < $afile |");
my $tested = read_file("$compiler < $qfile | $norman |")