sub sortNodes ($$) {
     # printf( "REF: %s / %s\n", ref($_[0]), ref($_[1]) );
     $_[0]->name() cmp $_[1]->name();
}