Untitled

use Grammar::Tracer;
use Terminal::ANSIColor;

&colored.wrap(-> $a, $b { $a });
&color.wrap(-> $a { "" });
&BOLD.wrap(-> { "" });
&RESET.wrap(-> { "" });

grammar Fly {
        rule TOP {
                <line>*
        }
        token function {
                "function" 
                \s+ 
                <ident> 
                \s* 
                <list> 
                \s*
                <block>
        }
        token block {
                "{"
                <line>*
                "}"
        }
        token import {
                "import" 
                \s+ 
                <ident>
        }
        token statement {
                [^\s\(\)\{\}\[\]]+
        }
        token line {
                <import> | <function> | <block> | <statement> | [\s|";"]+
        }
        token list {
                "("
                [
                        <statement>
                        ","
                ]*
                <statement>?
                ")"
        }
}


sub MAIN(){
        my $input = slurp;
        say Fly.parse($input);#, :actions(Fly::Actions));
}