my $comm_tree = Tree::DAG_Node->new;	#create the root node
$comm_tree->name('CommentRoot');

my %noderef;	#hash of node references, with PID as keys
$noderef{0} = \$comm_tree; #replies to the story have PID==0