# Pastebin rIp1MKmx
#https://chatgpt.com/share/699499e6-1064-8009-9651-d55d5eb5bfb5

my $input = q:to/END/;
invoice "INV-001" for "ACME Corp"
    item "Hosting" 100 x 3
    item "Support" 50 x 2
    tax 20%
invoice "INV-002" for "Globex"
    item "Consulting" 200 x 5
    discount 10%
    tax 21%
END

#use Grammar::Tracer;

grammar InvoiceDSL {

    token TOP {
        ^ <invoice>+ % \n* $
    }

    token invoice {
        <header>
        \n
        <line>+
    }

    token header {
        'invoice' \h+ <id=string> \h+ 'for' \h+ <client=string>
    }

    token line {
        \h**4 <entry> \n?
    }

    token entry {
        | <item>
        | <tax>
        | <discount>
    }

    token item {
        'item' \h+ <desc=string> \h+ <price=num> \h+ 'x' \h+ <qty=int>
    }

    token tax {
        'tax' \h+ <percent=num> '%'
    }

    token discount {
        'discount' \h+ <percent=num> '%'
    }

    token string { \" <( <-["]>* )> \" }
    token num    { \d+ [ '.' \d+ ]? }
    token int    { \d+ }
}

class InvoiceActions {

    method TOP($/) {
        make $<invoice>».made;
    }

    method invoice($/) {
        my %invoice = (
            id     => ~$<header><id>,
            client => ~$<header><client>,
            items  => [],
            tax    => 0,
            discount => 0,
        );

        for $<line>».made -> $entry {
            given $entry<type> {
                when 'item'     { %invoice<items>.push($entry<data>) }
                when 'tax'      { %invoice<tax> = $entry<data> }
                when 'discount' { %invoice<discount> = $entry<data> }
            }
        }

        make %invoice;
    }

    method item($/) {
        make {
            type => 'item',
            data => {
                desc  => ~$<desc>,
                price => +$<price>,
                qty   => +$<qty>,
            }
        };
    }

    method tax($/) {
        make { type => 'tax', data => +$<percent> };
    }

    method discount($/) {
        make { type => 'discount', data => +$<percent> };
    }

    method line($/) {
        make $<entry>.made;
    }
}

my $res = InvoiceDSL.parse($input, :actions(InvoiceActions));

say $res<invoice>[0]<header><client>;
say $res<invoice>[0]<line>[0]<entry><item><price> * 1.1;


repl;