Example AST transform (NQP-based)

method while_statement($/, $key) {
    return PAST::Op.new($($<expression>), 
                        $($<block>),
                        pasttype => 'while',
                        node => $/);
}