##
72
##
##
#!/usr/bin/perl
use warnings;
use strict;
use XML::LibXML;
my $dom = 'XML::LibXML'->load_xml(location => '1.xml');
my $xpc = 'XML::LibXML::XPathContext'->new;
$xpc->registerNs(s => 'http://stlib.xml.ns');
my $digits = $xpc->findvalue('//s:mem_bit', $dom);
print $digits, "\n"