%%
array:
    LEFTC kvlist RIGHTC { return $_[2] };

kvlist:
    kvlist COMMA kvpair { return [ @{$_[1]}, @{$_[3]} ] } |
    kvpair;

kvpair:
    quotestring COLON quotestring { return [ $_[1], $_[3] ] };

quotestring:
    QUOTE QUOTE { return "" } |
    QUOTE ID QUOTE { return $_[2] };
%%