#!/bin/rc
# up (id):  write out mother clade; 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 $2}'''   clade  | rc 

#-eof-