if ( argnumber < 2 ) lquote[ ; errmsg This script merges tags in two files. Each of the files must contain tags in parenthetical notation (saved with &34save*.,&34). Must give name of files to merge as arguments. The labels for both trees are shown, separated by a slash., note that the labels are inverted (first label shown corresponds to second tree). The second tree is plotted., when the second tree has a group not present in the first, the second label (corresponding to first tree) is indicated as &34?&34. ; end keep 0 ; p %1 ; var: i j k tagsa[ (nnodes[0]+1) 5 ] ; loop 0 nnodes[0] set i 'tagsa[#1]'; set 'i' $$ttag #1; stop p %2 ; var : listnod [ (nnodes[1]+1) ] ; set listnod grptogrp 0 1 ; loop 0 nnodes[1] set j 'listnod [ #1 ]' ; if ( 'j' < 0 ) ttag +#1/?; continue ; end set i 'tagsa['j']'; ttag +#1 /$('i'); stop ttag ; proc/;