sub devices_for {
    return ( $_[0] =~ /^DEVICE\d/ )
        ? $_[0]
        : map { devices_for( $_ ) } query( $_[0] );
}