A simpler transformation

transform past (Perl6::Grammar::integer) :language('PIR') {
    .local pmc past
    $P0 = new .Perl6Str
    $S0 = node
    $P0 = $S0
    $I0 = $P0
    past = new 'Perl6::PAST::Val'
    past.'init'('node'=>node, 'valtype'=>'int', 'name'=>$I0)
    .return (past)
}