#!/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}''' spc | rc }
echo awk '''$3==' $x '{print $2}''' spc | rc
#-eof-
|