#!/bin/rc
# writes out all leaves under the (number of) taxon given as argument
# Usage: leaves TAXON
# Mon Jan 27 10:25:44 EST 2003
# <pac7@post.cz>

# edit the next line to show the locate your dispatch file properly
DISPATCH='/usr/pac/++RESEARCH/pq-databases/polyc/dispatch'


i=$1

while({j=`{pq -m 'join '^$DISPATCH^'' 	-o '%TAXON' 'UP='$i'' >[2=]}; \
pq -m 'join '^$DISPATCH^'' 	-o '%TAXON' 'UP='$i'|ISLEAF=y'>[2=]; \
i= $j})\
{exit 1}