my $file2 := open 2.xml ;
open 1.xml ;
my $t := hash langSet[@xml:lang='EN']/tig/term /root/termEntry ;

for my $entry in $file2/root/termEntry {
    my $entry1 = xsh:lookup('t', $entry/langSet[@xml:lang='EN']/tig/term) ;
    if ($entry1) {
        for my $lang in $entry/langSet/@xml:lang {
            if (0 = count($entry1/langSet[@xml:lang=$lang]))
                cp $lang/.. into $entry1 ;
        }
    } else {
        cp $entry into /root ;
    }
}

save :b ;


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,