package Tnode;

sub new
{
  my $pkg  = shift;
  my $text = shift;                                  
  my $self = {'text' => $text};                                        

  bless $self,$pkg;
 
  return($self);  
}

sub topdown  {}
sub bottomup {}
sub strange  {}

'End of Tnode';