report-; 
sil = con ; 
keep 1 ; 
macro=; 
taxna [ 30 ;
ag =0 ; 
loop 1 argnumber
    if ( eqstring[ %(#1) fullnames ] ) taxname [ 0 ; continue ; end 
    ag >0 :%(#1) ;
    stop 
tread ( ( { 0 } ) ... ) ;
set 1 root ; 
pruntax 1 /.-@0 '1' ; 
set 3 numdes[1 (root+1)] ;

set 0 simgroup[1 (root+1) 0 ]
set 1 regalfa ;
set 2 regr ;

xr =! 0 [.] 0 ;
xr = 0 [{0}] 1 ;
set 4 length[0 0] - 1 ; 
set 6 maxsteps[0] - 1 ; 

if ( '0' ) 
  ttag -;
  ttag *0 ; 
  ttag +'0' XXXX TOT:'3'(+'1',-'2');
  if ( '4' )
/*    set 3 1 - ( '4' / '6' ) ; */

set 3 ('3'-('1'+'2'))/'3' ; 

    ttag +'0'('/.3(3)')-SPR '4';
else 
   ttag +'0' - perf.!; 

    end
  clb ; 
else 
  sil-all ;
  set 3 1 - ( '4' / '6' ) ; 
  quote No clear match! '4' SPR moves ('/.3(3)') ;
  proc/;
end

sil = buffer ;
set 3 root ; 
ag =1 @0 '0' ; 
ag =2 @0 '3' <2 [0]; 
ag =3 (Intruders) [1 2] ; 
ag =4 @0 '3' <4 @0 '0' ; 
ag =5 (Runaways) [ 0 4 ] ; 
loop 0 ntax 
   if ( isinagroup[3 #1] ) 
      ttag +#1 YYYY;
   else if ( isinagroup[5 #1] ) 
            ttag +#1 ZZZZ; 
        end 
   end 
stop 
keep 1 ; 
sil - buffer ; 
ag - 0 1 2 4 ; 
if ( '2' ) 
   set 1 0 ;
   set 4 root ; 
   loop 0 ntax
      if ( isinagroup[ 5 #1 ] )
         if ( '1' < distnode[ 0 '0' #1 ] )
            set 1 distnode[ 0 '0' #1 ] ;
            end 
         if ( '4' > distnode[ 0 '0' #1 ] )
            set 4 distnode[ 0 '0' #1 ] ;
            end 
         end
      stop 
end 

quote Closest group is node '0' ; 

ttag ;
/*
var = 10 bloli[35] ; 
macfloat 0 ; 
quote INTRUDERS: ; 
loop 0 ntax 
   if ( !isinagroup [ 3 #1 ] ) continue ; end 
   set bloli blocklist[#1] ; 
   quote  -- 'bloli[0-listsize]' - $taxon #1; 
stop 

quote RUNAWAYS: ; 
loop 0 ntax 
   if ( !isinagroup [ 5 #1 ] ) continue ; end 
   set bloli blocklist[#1] ; 
   quote  -- 'bloli[0-listsize]' - $taxon #1; 
stop 

macfloat 5 ; 
*/

ag ;

if ( '2' ) 
   quote Distance of excluded taxa to group: '1'-'4' nodes ;
   end 
view:XXXX; 
silent - con ; 
proc/;