Chentium

use MONKEY-SEE-NO-EVAL;

my $file = slurp "file.tim";
my $code = "";
my $var = /<ident>[\-<ident>]*/;

for $file.lines -> $line {
    given $line {
        when m/^\s*$/ {}
        
        when m:s/^\s*go to discord and talk about (.+)/ {
            $code ~= "# $0\n"
        }
        
        when m:s/^\s*add a feature called ($var) that adds (.+)/ {
            $code ~= "my \\$0 = my \$$0 = $1;\n"
        }
        
        when m:s/^\s*make the feature ($var) actually work by making it (.+)/ {
            $code ~= "$0 = $1;\n"
        }
        
        when m:s/^\s*post (.+?) [in|on|to] '#'announcements\s*$/ {
            $code ~= "say $0;\n"
        }
        
        when m:s/^\s*wait (.+?) years before adding a new language to repl'.'?it\s*$/ {
            $code ~= "sleep $0;\n"
        }
        
        when m:s/^\s*if testing (.+?) works',' then\s*$/ {
            $code ~= "if $0 \{\n"
        }
        
        when m:s/^\s*also',' if testing (.+?) works',' then \s*$/ {
            $code ~= "\} elsif $0 \{\n"
        }
        
        when m:s/^\s*if it doesn"'"t work',' then\s*$/ {
            $code ~= "\} else \{\n"
        }
        
        when m:s/^\s*get distracted and do something else\s*$/ {
            $code ~= "\}\n"
        }
        
        default {
            die "`$line` is an invalid command!!!"
        }
    }
}

#say $code;
EVAL $code