# Node:
sub new{
	my $self = [];
	$self->[$node::child]=[];
	$self->[$node::leaves] = undef;
	$self->[$node::myDepth] = undef;
	$self->[$const::getType] = "Node";

	# Added/Changed by KIN
	# trying to limit mem usage
	# Date: Tuesday, August 06, 2002 @ 10:18 AM
	if(not($const::LSNmode == 1)){
		$self->[$node::nodes] = undef;
		$self->[$node::bits] = undef;
	}else{
		$self->[$node::lsnBits] = undef;
		$self->[$node::nodeBits] = undef;
		$self->[$node::isLSN] = undef;
		$self->[$node::reBits] = undef;
		$self->[$node::reNodes] = undef;
	}
	bless($self);
	return $self;
}

# Leaf:
sub new{
	my $self = [];
	$self->[$ptr::weight] = 0;
	$self->[$ptr::value]  = undef;
	$self->[$const::getType] = "Leaf";
	bless($self);
	return $self;
}