sub query_sync {
  my $sql=pop;
  state $dbh||=DBI->connect('dbi:Pg:dbname=r2', 'ipp', undef, {RaiseError=>1});
  my $stmt=$dbh->prepare_cached($sql);
  return $stmt->execute(@_), $stmt;
}