sub query($$$@){
my($name, $type, $comb,@vals)=@_;
@vals=map{ s/'/''; "[$name] $type '$_'";}@vals;
return "(".join(" $comb",@vals). ")";
}