gistfile1.txt

grammar Schematics {
        my $curr_product;
        my $curr_line = 0;

        token TOP { ^ <line>+ $ }
        rule line {
                { $curr_line++ }
                <product> \h* '<-' \h* [ <components> | <isk> ]
        }
        token itemname { [ '-' | \w | [\h\w] ]+ }
        token amount { ['-']?\d+[.\d+]? }
        token product {
                [ (<amount>) \h ]? (<itemname>)
                {
                        $curr_product = Product.new(:name($1.Str), :stacksize($0 ?? $0.Str.Int !! 1));
                }
        }
        token components {
                [
                        <isk>
                        | [ (<amount>) \h (<itemname>) ] { $curr_product.components.push($1.Str => ($0 / $curr_product.stacksize).Rat ); }
                ]
                [\h* ',' \h* <components>]*
                | { die "match failed at: ", $curr_line }
        }
        token isk {
                (<amount>) \s* 'ISK'
                {
                        $curr_product.components.push( ISK.new(:amount($0.Num)) );
                }
        }
}