map{map{$_=$u[$_]while$u[$_]}($a,$b)=/\w* /g;$u[$a]=$b,$\=$' if$a-$b}<>;print