#!/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 <cej@gli.cas.cz | pac7@post.cz | pac@plan9.cz>

#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-