print "var\n"; print "\tr, k,\n"; print "\ta, b, \n"; print "\talpha, beta,\n"; #print "\tg, \n\n"; print "\troot\[nChar\], p\.root\[2\],\n"; print "\tnode\[nNode, nChar\], p\.node\[nNode,2,2\],\n"; print "\totu\[nOTU, nChar\], p\.otu\[nOTU,2,2\],\n"; print "\tb\.otu\[nOTU\], b\.node\[nNode\],\n"; print "\n\tlk\[nOTU+nNode+1, nChar\], llike;\n\n";

NAME

this.pl - do something very important.

SYNOPSIS

this.pl [opts] <file>

DESCRIPTION

this.pl does something very important.

FILES

<file> must have a specific format.

REQUIRES

Perl 5.004; GetOpt::Std;

VERSION

$Id: jags.pl,v 1.2 2007/02/22 17:46:30 vivek Exp $

AUTHOR

Weigang Qiu

CONTRIBUTORS

Arlin Stoltzfus