# object1:
sub depth{
    my $self = shift;
    my $max = 0;
    foreach my $item ( @{$self->{child}} ) {
        next if ! defined ($item);
        my $depth = $item->depth();
        $max = $depth if $depth > $max;
    }
    $self->{myDepth} = $max+1;
    return $max+1;
}