sub depth {
my $self = shift;
return $self->{myDepth} = shift(sort map{ $_->depth(); } @{$self->{child}}[0:14]) + 1;
}