sub get_int_uni2 {
  my ($in, $jn) = @_;
  my %i;
  @i{@$in} = ();
  my $int = grep exists $i{$_}, @$jn;
  return ($int, @$in + @$jn - $int);
}