#!/bin/rc
# sisters (id): write out sister clades; give taxon id as argument
#  Wed Nov 24 14:26:50 EST 2004 Peter A. Cejchan <cej@gli.cas.cz | pac7@post.cz | pac@plan9.cz>


x= `{echo  awk '''$1=='   $1   ' {print  $3}'''   clade  | rc }
echo  awk '''$3==' $x  '{print $2}'''   clade  | rc 

#-eof-