#!/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=$1
while (x=`{occ/upid $x})  occ/name $x
#-eof-