print "COMPUTE x = IDF.$dist (", join (', ', 'P', @vars), ").\n";
foreach my $func (@funcs) {
print "COMPUTE $func = $func.$dist (",
join (', ', 'x', @vars), ").\n";
}
print "COMPUTE x = IDF.$dist (", join (', ', 'P', @vars), ").\n";
foreach my $func (@funcs) {
print "COMPUTE $func = $func.$dist (",
join (', ', 'x', @vars), ").\n";
}