#!/usr/bin/perl -w

while (<>) {
	($a, $b) = (split /::/)[1,2];
	if (defined $a and defined $b) {
		if (!defined($ptr{$a}) and !defined($ptr{$b})) {
			$ptr{$a} = $a;
			push @{$val{$a}}, $a, $b;
			$ptr{$b} = $a;
			$#{$val{$b}} = 0;
		}
		elsif (defined($ptr{$a}) and !defined($ptr{$b})) {
			push @{$val{$ptr{$a}}}, $b;
			$ptr{$b} = $ptr{$a};
			$#{$val{$b}} = 0;
		}
		elsif (!defined($ptr{$a}) and defined($ptr{$b})) {
			$ptr{$a} = $ptr{$b};
			$#{$val{$a}} = 0;
			push @{$val{$ptr{$b}}}, $a;
		}
		elsif ($ptr{$a} ne $ptr{$b}) {
			push @{$val{$ptr{$a}}}, @{$val{$ptr{$b}}};
			$ptr{$b} = $ptr{$a};
			$#{$val{$ptr{$b}}} = 0;
			# else $val{$a} is $val{$b} already
		}
	}
}

foreach $k (keys %ptr) {
	if ($ptr{$k} eq $k) {
		print "xv \"", join("\" \"", @{$val{$ptr{$k}}}), "\"\n";
	}
}

exit 0;

