use strict;
use BNF;
my $test=BNF::new("{key1={key2={key3=1234}}}");
print $test->get_key('key1')->get_key('key2')->get_key('key3');
exit;