gistfile1.txt

> 3
"noun" => Hash {
    "" => PMC 'Sub' { ... },
    """ => \noun[""],
    "$" => PMC 'Sub' { ... },
    "%" => \noun["$"],
    "&" => \noun["$"],
    "'" => \noun[""],
    "(" => PMC 'Sub' { ... },
    "0b" => \noun[""],
    "0d" => \noun[""],
    "0o" => \noun[""],
    "0x" => \noun[""],
    "<" => \noun["("],
    "@" => \noun["$"],
    "Q" => \noun[""],
    "my" => PMC 'Sub' { ... },
    "our" => \noun["my"],
    "q" => \noun[""],
    "qq" => \noun[""],
    "sub" => PMC 'Sub' { ... },
    "{" => \noun["("]
}
"statement_control" => Hash {
    "for" => PMC 'Sub' { ... },
    "if" => PMC 'Sub' { ... },
    "repeat" => PMC 'Sub' { ... },
    "unless" => PMC 'Sub' { ... },
    "until" => PMC 'Sub' { ... },
    "while" => \statement_control["until"]
}
"parse" => PMC 'Regex;Match' => "3\n" @ 0 {
    <comp_unit> => PMC 'Regex;Match' => "3\n" @ 0 {
        <statementlist> => PMC 'Regex;Match' => "3\n" @ 0 {
            <statement> => ResizablePMCArray (size:1) [
                PMC 'Regex;Match' => "3\n" @ 0 {
                    <EXPR> => PMC 'Regex;Match' => "3" @ 0 {
                        <noun> => PMC 'Regex;Match' => "3" @ 0 {
                            <term> => PMC 'Regex;Match' => "3" @ 0 {
                                <value> => PMC 'Regex;Match' => "3" @ 0 {
                                    <integer> => PMC 'Regex;Match' => "3" @ 0 {
                                        <decint> => PMC 'Regex;Match' => "3" @ 0
                                    }
                                }
                            }
                        }
                    }
                }
            ]
        }
    }
}
>