#!/bin/rc # up (id): write out mother clade id; give taxon id as argument # Wed Nov 24 14:26:50 EST 2004 Peter A. Cejchan #x= `{echo awk '''$1==' $1 ' {print $3}''' clade | rc } #echo awk '''$1==' $x '{print $1}''' clade | rc echo awk '''$1==' $1 ' {print $3}''' clade | rc >[2]/dev/null #-eof-