if ((! defined($spair{$si."-".$sn})) and 
      (! defined($spair{$sn."-".$si}))) {
    $spair{$si."-".$sn} = $prod;
  }