package main;
    *{'infix:<*>'} = sub

    {
 $_[0] * $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\*\>' );
    *{'infix:<+>'} = sub

    {
 $_[0] + $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\+\>' );
    *{'infix:<~>'} = sub

    {
 $_[0] . $_[1] 
    }
    ;
    require Runtime::Perl5::RuleInit;
    push @Grammar::Perl6::ops, Runtime::Perl5::RuleOps::compile_rule( 'infix\:\<\~\>' );