my $book    := open a.xml ;
my $catalog := open b.xml ;

copy $book/book append $catalog/catalog ;

save :b $catalog ;