anchor.diff:          + "    # pir = past_root.'compile'( 'target' => 'pir' )              \n"
           + "    # print pir                                                   \n"
           + "                                                                  \n"
  -        + "    .local pmc pastcompiler, eval_past                            \n"
  -        + "    pastcompiler = new 'HLLCompiler'                              \n"
  -        + "    pastcompiler.'removestage'('parse')                           \n"
  -        + "    pastcompiler.'removestage'('past')                            \n"
  -        + "    eval_past = pastcompiler.'compile'(past_root)                 \n"
  +        + "    .local pmc plumhead_compiler, eval_past                       \n"
  +        + "    plumhead_compiler = new [ 'PCT::HLLCompiler' ]                \n"
  +        + "    plumhead_compiler.'removestage'('parse')                      \n"
  +        + "    plumhead_compiler.'removestage'('past')                       \n"
  +        + "    eval_past = plumhead_compiler.'compile'(past_root)            \n"
           + "    eval_past()                                                   \n"
           + "                                                                  \n"
           + ".end                                                              \n"
  
positive.code:           "                                                                  \n"
          + "  # start of NUMBER                                               \n"
          + "  past_temp = new 'PAST::Val'                                     \n"
          + "      past_temp.'attr'( 'name', '" + $NUMBER.text + "', 1 )       \n"
          + "      past_temp.'attr'( 'ctype', 'n+', 1 )                        \n"
          + "      past_temp.'attr'( 'vtype', '.Float', 1 )                    \n"
          + "  " + $node.reg_mother + ".'push'( past_temp )                    \n"
          + "  # end of NUMBER                                                 \n"
        );
  
negative.code:       System.out.println( 
            "                                                                  \n"
          + "  past_name = new 'PAST::Var'                                     \n"
          + "  past_name.'init'( 'name' => '" + $ARRAY.text + "', 'scope' => 'package', 'viviself' => 'Hash', 'lvalue' => 1 )      \n"
          + "  # PAST-pm has no unshift yet                                    \n"
          + "  \$P0 = " + reg_array + ".'get_array'()                          \n"
          + "  unshift \$P0, past_name                                         \n"
  