#!/usr/bin/perl
use warnings;
use strict;

use Marpa::R2;
use Data::Dumper;

my $dsl = << '__DSL__';
:default ::= action => [values]
lexeme default = latm => 1

seq     ::= '(' seqstrs ')'
seqstrs ::= seqstr seqstrs | seqstr
seqstr  ::= seq | tagstr
tagstr  ::= OZN seq | OZN rijec

OZN      ~ [A-Z.,?'*:`]+
rijec    ~ [\w\-?,:<*`*]+
space    ~ [\s]+
:discard ~ space
__DSL__

my $grammar = 'Marpa::R2::Scanless::G'->new({ source => \$dsl });

my $input = "(SBARQ (WHNP (WP Who))(SQ (VP (VBZ says)(, ,)(S (SBAR (`` ``)(IN If)(S (NP (PRP you))(VP (VBP do)(RB n<t)(VP (VB look)(ADJP (JJ good)))))(, ,)(S (NP (PRP we))(VP (VBP do)(RB n<t)(VP (VB look)(ADJP (JJ good)('' <<)))))))))(? ?))";

my $result = $grammar->parse(\$input);
print Dumper($result);