sub collectLeaves ($) {
    my ( $ds, $leaves ) = @_;