depager 0.2.3 → 0.3.0.b20250423

data/examples/pl0d/pl0ds.tab.rb

@@ -1,2698 +0,0 @@
-
-begin; require 'rubygems'; rescue Exception; end
-require 'depager/parser.rb'
-
-
-module Depager::DecoratorUtils; end
-module D4PL0d;    end
-
-class PL0d < Depager::LALR::Basis
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [   -1,    1 ], # (  0) $start : program
-    [    0,    2 ], # (  1) program : block '.'
-    [    1,    2 ], # (  2) block : opt_decl_list statement
-    [    2,    0 ], # (  3) opt_decl_list : 
-    [    2,    2 ], # (  4) opt_decl_list : opt_decl_list decl
-    [    4,    3 ], # (  5) decl : CONST const_init_list ';'
-    [    4,    3 ], # (  6) decl : VAR ident_list ';'
-    [    4,    6 ], # (  7) decl : FUNCTION IDENT '(' ')' block ';'
-    [    4,    7 ], # (  8) decl : FUNCTION IDENT '(' ident_list ')' block ';'
-    [    5,    1 ], # (  9) const_init_list : const_init
-    [    5,    3 ], # ( 10) const_init_list : const_init_list ',' const_init
-    [    7,    3 ], # ( 11) const_init : IDENT EQ NUMBER
-    [    6,    1 ], # ( 12) ident_list : IDENT
-    [    6,    3 ], # ( 13) ident_list : ident_list ',' IDENT
-    [    3,    0 ], # ( 14) statement : 
-    [    3,    3 ], # ( 15) statement : IDENT COLOEQ expression
-    [    3,    4 ], # ( 16) statement : BEGINN statement opt_state_list END
-    [    3,    4 ], # ( 17) statement : IF condition THEN statement
-    [    3,    4 ], # ( 18) statement : WHILE condition DO statement
-    [    3,    2 ], # ( 19) statement : RETURN expression
-    [    3,    2 ], # ( 20) statement : WRITE expression
-    [    3,    1 ], # ( 21) statement : WRITELN
-    [    9,    0 ], # ( 22) opt_state_list : 
-    [    9,    3 ], # ( 23) opt_state_list : opt_state_list ';' statement
-    [   10,    2 ], # ( 24) condition : ODD expression
-    [   10,    3 ], # ( 25) condition : expression EQ expression
-    [   10,    3 ], # ( 26) condition : expression NOTEQ expression
-    [   10,    3 ], # ( 27) condition : expression LT expression
-    [   10,    3 ], # ( 28) condition : expression GT expression
-    [   10,    3 ], # ( 29) condition : expression LE expression
-    [   10,    3 ], # ( 30) condition : expression GE expression
-    [    8,    3 ], # ( 31) expression : expression '+' term
-    [    8,    3 ], # ( 32) expression : expression '-' term
-    [    8,    1 ], # ( 33) expression : term
-    [    8,    2 ], # ( 34) expression : '-' term
-    [   11,    3 ], # ( 35) term : term '*' factor
-    [   11,    3 ], # ( 36) term : term '/' factor
-    [   11,    1 ], # ( 37) term : factor
-    [   12,    1 ], # ( 38) factor : IDENT
-    [   12,    1 ], # ( 39) factor : NUMBER
-    [   12,    3 ], # ( 40) factor : IDENT '(' ')'
-    [   12,    4 ], # ( 41) factor : IDENT '(' exp_list ')'
-    [   12,    3 ], # ( 42) factor : '(' expression ')'
-    [   13,    1 ], # ( 43) exp_list : expression
-    [   13,    3 ], # ( 44) exp_list : exp_list ',' expression
-  ]
-  ### Extension Params
-  nparams = {
-    'ASTBuilder' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    "." => 2, 
-    :CONST => 3, 
-    ";" => 4, 
-    :VAR => 5, 
-    :FUNCTION => 6, 
-    :IDENT => 7, 
-    "(" => 8, 
-    ")" => 9, 
-    "," => 10, 
-    :EQ => 11, 
-    :NUMBER => 12, 
-    :COLOEQ => 13, 
-    :BEGINN => 14, 
-    :END => 15, 
-    :IF => 16, 
-    :THEN => 17, 
-    :WHILE => 18, 
-    :DO => 19, 
-    :RETURN => 20, 
-    :WRITE => 21, 
-    :WRITELN => 22, 
-    :ODD => 23, 
-    :NOTEQ => 24, 
-    :LT => 25, 
-    :GT => 26, 
-    :LE => 27, 
-    :GE => 28, 
-    "+" => 29, 
-    "-" => 30, 
-    "*" => 31, 
-    "/" => 32, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    ".", 
-    :CONST, 
-    ";", 
-    :VAR, 
-    :FUNCTION, 
-    :IDENT, 
-    "(", 
-    ")", 
-    ",", 
-    :EQ, 
-    :NUMBER, 
-    :COLOEQ, 
-    :BEGINN, 
-    :END, 
-    :IF, 
-    :THEN, 
-    :WHILE, 
-    :DO, 
-    :RETURN, 
-    :WRITE, 
-    :WRITELN, 
-    :ODD, 
-    :NOTEQ, 
-    :LT, 
-    :GT, 
-    :LE, 
-    :GE, 
-    "+", 
-    "-", 
-    "*", 
-    "/", 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ ACC, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 8, nil, 12, 16, 7, nil, nil, nil, nil, nil, nil, 9, nil, 13, nil, 6, nil, 10, 11, 14, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 18, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 27, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 7, nil, nil, nil, nil, nil, nil, 9, nil, 13, nil, 6, nil, 10, 11, 14, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 33, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 18, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 36, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, 38, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 39, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 42, 43, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 50, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 45, 47, 48, 49, 51, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 53, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 54, nil, nil, nil, nil, nil, 55, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 57, nil, nil, nil, nil, nil, 58, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 59, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, 60, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, 61, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 7, nil, nil, nil, nil, nil, nil, 9, nil, 13, nil, 6, nil, 10, 11, 14, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 65, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 42, 43, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 76, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 27, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 78, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 79, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 80, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 7, nil, nil, nil, nil, nil, nil, 9, nil, 13, nil, 6, nil, 10, 11, 14, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 33, nil, 83, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 84, 85, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 42, 43, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 42, 43, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 7, nil, nil, nil, nil, nil, nil, 9, nil, 13, nil, 6, nil, 10, 11, 14, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 87, 58, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 19, 21, nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 22, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 91, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 44, 46, nil, nil, ], 
-    [ nil, nil, nil, nil, 92, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    -3, 
-    nil, 
-    nil, 
-    -14, 
-    -1, 
-    -4, 
-    nil, 
-    nil, 
-    nil, 
-    -14, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -21, 
-    -2, 
-    nil, 
-    -39, 
-    nil, 
-    -38, 
-    nil, 
-    nil, 
-    nil, 
-    -33, 
-    -37, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -9, 
-    -22, 
-    -19, 
-    -20, 
-    -12, 
-    nil, 
-    nil, 
-    nil, 
-    -24, 
-    nil, 
-    -14, 
-    nil, 
-    -34, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -15, 
-    nil, 
-    -5, 
-    nil, 
-    nil, 
-    -6, 
-    nil, 
-    -14, 
-    nil, 
-    -40, 
-    nil, 
-    -43, 
-    -18, 
-    -42, 
-    -35, 
-    -36, 
-    -31, 
-    -26, 
-    -32, 
-    -27, 
-    -28, 
-    -29, 
-    -25, 
-    -30, 
-    -11, 
-    -10, 
-    -14, 
-    -16, 
-    -13, 
-    -17, 
-    nil, 
-    -3, 
-    -41, 
-    nil, 
-    -23, 
-    -3, 
-    nil, 
-    -44, 
-    nil, 
-    -7, 
-    -8, 
-  ]
-  defred_after_shift_table = [
-    -3, 
-    nil, 
-    nil, 
-    nil, 
-    -1, 
-    -4, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -21, 
-    -2, 
-    nil, 
-    -39, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -37, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -9, 
-    -22, 
-    nil, 
-    nil, 
-    -12, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -5, 
-    nil, 
-    nil, 
-    -6, 
-    nil, 
-    nil, 
-    nil, 
-    -40, 
-    nil, 
-    nil, 
-    -18, 
-    -42, 
-    -35, 
-    -36, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -11, 
-    -10, 
-    nil, 
-    -16, 
-    -13, 
-    -17, 
-    nil, 
-    -3, 
-    -41, 
-    nil, 
-    -23, 
-    -3, 
-    nil, 
-    nil, 
-    nil, 
-    -7, 
-    -8, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :program => 0,  
-    :block => 1,  
-    :opt_decl_list => 2,  
-    :statement => 3,  
-    :decl => 4,  
-    :const_init_list => 5,  
-    :ident_list => 6,  
-    :const_init => 7,  
-    :expression => 8,  
-    :opt_state_list => 9,  
-    :condition => 10,  
-    :term => 11,  
-    :factor => 12,  
-    :exp_list => 13, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :program, 
-    :block, 
-    :opt_decl_list, 
-    :statement, 
-    :decl, 
-    :const_init_list, 
-    :ident_list, 
-    :const_init, 
-    :expression, 
-    :opt_state_list, 
-    :condition, 
-    :term, 
-    :factor, 
-    :exp_list, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, 2, 3, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 15, 5, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 25, nil, 20, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, 28, nil, 29, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 30, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 31, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 32, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, 34, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 25, nil, 35, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 37, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 40, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 41, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 52, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 56, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 63, nil, nil, 23, 24, 62, ], 
-   [ nil, nil, nil, 64, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 66, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 67, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 68, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 69, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 70, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 71, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 72, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 73, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 74, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 75, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, 77, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 81, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, 82, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 86, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, 88, 3, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, 89, nil, nil, 23, 24, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, 90, 3, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-
-
-  alias orig_error error
-  def error
-    orig_error
-    warn "current state: #{StateInfo[@stack.last]}"
-  end
-
-  ### States
-  StateInfo = [ 
-<<'----------',
-I000 = 
-  (  0) $start : _ program
-
-
-  $default       reduce using rule 3 (opt_decl_list)  [after shift]
-
-----------
-  
-<<'----------',
-I001 = 
-  (  0) $start : program _
-
-
-
-  $end            accept
-
-----------
-  
-<<'----------',
-I002 = 
-  (  1) program : block _ '.'
-
-  '.'             shift, and goto to state 4
-
-
-----------
-  
-<<'----------',
-I003 = 
-  (  2) block : opt_decl_list _ statement
-  (  4) opt_decl_list : opt_decl_list _ decl
-
-  CONST           shift, and goto to state 8
-  VAR             shift, and goto to state 12
-  FUNCTION        shift, and goto to state 16
-  IDENT           shift, and goto to state 7
-  BEGINN          shift, and goto to state 9
-  IF              shift, and goto to state 13
-  WHILE           shift, and goto to state 6
-  RETURN          shift, and goto to state 10
-  WRITE           shift, and goto to state 11
-  WRITELN         shift, and goto to state 14
-
-  $default       reduce using rule 14 (statement) 
-
-----------
-  
-<<'----------',
-I004 = 
-  (  1) program : block '.' _
-
-
-  $default       reduce using rule 1 (program)  [after shift]
-
-----------
-  
-<<'----------',
-I005 = 
-  (  4) opt_decl_list : opt_decl_list decl _
-
-
-  $default       reduce using rule 4 (opt_decl_list)  [after shift]
-
-----------
-  
-<<'----------',
-I006 = 
-  ( 18) statement : WHILE _ condition DO statement
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  ODD             shift, and goto to state 18
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I007 = 
-  ( 15) statement : IDENT _ COLOEQ expression
-
-  COLOEQ          shift, and goto to state 26
-
-
-----------
-  
-<<'----------',
-I008 = 
-  (  5) decl : CONST _ const_init_list ';'
-
-  IDENT           shift, and goto to state 27
-
-
-----------
-  
-<<'----------',
-I009 = 
-  ( 16) statement : BEGINN _ statement opt_state_list END
-
-  IDENT           shift, and goto to state 7
-  BEGINN          shift, and goto to state 9
-  IF              shift, and goto to state 13
-  WHILE           shift, and goto to state 6
-  RETURN          shift, and goto to state 10
-  WRITE           shift, and goto to state 11
-  WRITELN         shift, and goto to state 14
-
-  $default       reduce using rule 14 (statement) 
-
-----------
-  
-<<'----------',
-I010 = 
-  ( 19) statement : RETURN _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I011 = 
-  ( 20) statement : WRITE _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I012 = 
-  (  6) decl : VAR _ ident_list ';'
-
-  IDENT           shift, and goto to state 33
-
-
-----------
-  
-<<'----------',
-I013 = 
-  ( 17) statement : IF _ condition THEN statement
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  ODD             shift, and goto to state 18
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I014 = 
-  ( 21) statement : WRITELN _
-
-
-  $default       reduce using rule 21 (statement)  [after shift]
-
-----------
-  
-<<'----------',
-I015 = 
-  (  2) block : opt_decl_list statement _
-
-
-  $default       reduce using rule 2 (block)  [after shift]
-
-----------
-  
-<<'----------',
-I016 = 
-  (  7) decl : FUNCTION _ IDENT '(' ')' block ';'
-  (  8) decl : FUNCTION _ IDENT '(' ident_list ')' block ';'
-
-  IDENT           shift, and goto to state 36
-
-
-----------
-  
-<<'----------',
-I017 = 
-  ( 39) factor : NUMBER _
-
-
-  $default       reduce using rule 39 (factor)  [after shift]
-
-----------
-  
-<<'----------',
-I018 = 
-  ( 24) condition : ODD _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I019 = 
-  ( 38) factor : IDENT _
-  ( 40) factor : IDENT _ '(' ')'
-  ( 41) factor : IDENT _ '(' exp_list ')'
-
-  '('             shift, and goto to state 38
-
-  $default       reduce using rule 38 (factor) 
-
-----------
-  
-<<'----------',
-I020 = 
-  ( 18) statement : WHILE condition _ DO statement
-
-  DO              shift, and goto to state 39
-
-
-----------
-  
-<<'----------',
-I021 = 
-  ( 42) factor : '(' _ expression ')'
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I022 = 
-  ( 34) expression : '-' _ term
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-
-
-----------
-  
-<<'----------',
-I023 = 
-  ( 33) expression : term _
-  ( 35) term : term _ '*' factor
-  ( 36) term : term _ '/' factor
-
-  '*'             shift, and goto to state 42
-  '/'             shift, and goto to state 43
-
-  $default       reduce using rule 33 (expression) 
-
-----------
-  
-<<'----------',
-I024 = 
-  ( 37) term : factor _
-
-
-  $default       reduce using rule 37 (term)  [after shift]
-
-----------
-  
-<<'----------',
-I025 = 
-  ( 25) condition : expression _ EQ expression
-  ( 26) condition : expression _ NOTEQ expression
-  ( 27) condition : expression _ LT expression
-  ( 28) condition : expression _ GT expression
-  ( 29) condition : expression _ LE expression
-  ( 30) condition : expression _ GE expression
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  EQ              shift, and goto to state 50
-  NOTEQ           shift, and goto to state 45
-  LT              shift, and goto to state 47
-  GT              shift, and goto to state 48
-  LE              shift, and goto to state 49
-  GE              shift, and goto to state 51
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-
-----------
-  
-<<'----------',
-I026 = 
-  ( 15) statement : IDENT COLOEQ _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I027 = 
-  ( 11) const_init : IDENT _ EQ NUMBER
-
-  EQ              shift, and goto to state 53
-
-
-----------
-  
-<<'----------',
-I028 = 
-  (  5) decl : CONST const_init_list _ ';'
-  ( 10) const_init_list : const_init_list _ ',' const_init
-
-  ';'             shift, and goto to state 54
-  ','             shift, and goto to state 55
-
-
-----------
-  
-<<'----------',
-I029 = 
-  (  9) const_init_list : const_init _
-
-
-  $default       reduce using rule 9 (const_init_list)  [after shift]
-
-----------
-  
-<<'----------',
-I030 = 
-  ( 16) statement : BEGINN statement _ opt_state_list END
-
-
-  $default       reduce using rule 22 (opt_state_list)  [after shift]
-
-----------
-  
-<<'----------',
-I031 = 
-  ( 19) statement : RETURN expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 19 (statement) 
-
-----------
-  
-<<'----------',
-I032 = 
-  ( 20) statement : WRITE expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 20 (statement) 
-
-----------
-  
-<<'----------',
-I033 = 
-  ( 12) ident_list : IDENT _
-
-
-  $default       reduce using rule 12 (ident_list)  [after shift]
-
-----------
-  
-<<'----------',
-I034 = 
-  (  6) decl : VAR ident_list _ ';'
-  ( 13) ident_list : ident_list _ ',' IDENT
-
-  ';'             shift, and goto to state 57
-  ','             shift, and goto to state 58
-
-
-----------
-  
-<<'----------',
-I035 = 
-  ( 17) statement : IF condition _ THEN statement
-
-  THEN            shift, and goto to state 59
-
-
-----------
-  
-<<'----------',
-I036 = 
-  (  7) decl : FUNCTION IDENT _ '(' ')' block ';'
-  (  8) decl : FUNCTION IDENT _ '(' ident_list ')' block ';'
-
-  '('             shift, and goto to state 60
-
-
-----------
-  
-<<'----------',
-I037 = 
-  ( 24) condition : ODD expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 24 (condition) 
-
-----------
-  
-<<'----------',
-I038 = 
-  ( 40) factor : IDENT '(' _ ')'
-  ( 41) factor : IDENT '(' _ exp_list ')'
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  ')'             shift, and goto to state 61
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I039 = 
-  ( 18) statement : WHILE condition DO _ statement
-
-  IDENT           shift, and goto to state 7
-  BEGINN          shift, and goto to state 9
-  IF              shift, and goto to state 13
-  WHILE           shift, and goto to state 6
-  RETURN          shift, and goto to state 10
-  WRITE           shift, and goto to state 11
-  WRITELN         shift, and goto to state 14
-
-  $default       reduce using rule 14 (statement) 
-
-----------
-  
-<<'----------',
-I040 = 
-  ( 42) factor : '(' expression _ ')'
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  ')'             shift, and goto to state 65
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-
-----------
-  
-<<'----------',
-I041 = 
-  ( 34) expression : '-' term _
-  ( 35) term : term _ '*' factor
-  ( 36) term : term _ '/' factor
-
-  '*'             shift, and goto to state 42
-  '/'             shift, and goto to state 43
-
-  $default       reduce using rule 34 (expression) 
-
-----------
-  
-<<'----------',
-I042 = 
-  ( 35) term : term '*' _ factor
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-
-
-----------
-  
-<<'----------',
-I043 = 
-  ( 36) term : term '/' _ factor
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-
-
-----------
-  
-<<'----------',
-I044 = 
-  ( 31) expression : expression '+' _ term
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-
-
-----------
-  
-<<'----------',
-I045 = 
-  ( 26) condition : expression NOTEQ _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I046 = 
-  ( 32) expression : expression '-' _ term
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-
-
-----------
-  
-<<'----------',
-I047 = 
-  ( 27) condition : expression LT _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I048 = 
-  ( 28) condition : expression GT _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I049 = 
-  ( 29) condition : expression LE _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I050 = 
-  ( 25) condition : expression EQ _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I051 = 
-  ( 30) condition : expression GE _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I052 = 
-  ( 15) statement : IDENT COLOEQ expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 15 (statement) 
-
-----------
-  
-<<'----------',
-I053 = 
-  ( 11) const_init : IDENT EQ _ NUMBER
-
-  NUMBER          shift, and goto to state 76
-
-
-----------
-  
-<<'----------',
-I054 = 
-  (  5) decl : CONST const_init_list ';' _
-
-
-  $default       reduce using rule 5 (decl)  [after shift]
-
-----------
-  
-<<'----------',
-I055 = 
-  ( 10) const_init_list : const_init_list ',' _ const_init
-
-  IDENT           shift, and goto to state 27
-
-
-----------
-  
-<<'----------',
-I056 = 
-  ( 16) statement : BEGINN statement opt_state_list _ END
-  ( 23) opt_state_list : opt_state_list _ ';' statement
-
-  ';'             shift, and goto to state 78
-  END             shift, and goto to state 79
-
-
-----------
-  
-<<'----------',
-I057 = 
-  (  6) decl : VAR ident_list ';' _
-
-
-  $default       reduce using rule 6 (decl)  [after shift]
-
-----------
-  
-<<'----------',
-I058 = 
-  ( 13) ident_list : ident_list ',' _ IDENT
-
-  IDENT           shift, and goto to state 80
-
-
-----------
-  
-<<'----------',
-I059 = 
-  ( 17) statement : IF condition THEN _ statement
-
-  IDENT           shift, and goto to state 7
-  BEGINN          shift, and goto to state 9
-  IF              shift, and goto to state 13
-  WHILE           shift, and goto to state 6
-  RETURN          shift, and goto to state 10
-  WRITE           shift, and goto to state 11
-  WRITELN         shift, and goto to state 14
-
-  $default       reduce using rule 14 (statement) 
-
-----------
-  
-<<'----------',
-I060 = 
-  (  7) decl : FUNCTION IDENT '(' _ ')' block ';'
-  (  8) decl : FUNCTION IDENT '(' _ ident_list ')' block ';'
-
-  IDENT           shift, and goto to state 33
-  ')'             shift, and goto to state 83
-
-
-----------
-  
-<<'----------',
-I061 = 
-  ( 40) factor : IDENT '(' ')' _
-
-
-  $default       reduce using rule 40 (factor)  [after shift]
-
-----------
-  
-<<'----------',
-I062 = 
-  ( 41) factor : IDENT '(' exp_list _ ')'
-  ( 44) exp_list : exp_list _ ',' expression
-
-  ')'             shift, and goto to state 84
-  ','             shift, and goto to state 85
-
-
-----------
-  
-<<'----------',
-I063 = 
-  ( 43) exp_list : expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 43 (exp_list) 
-
-----------
-  
-<<'----------',
-I064 = 
-  ( 18) statement : WHILE condition DO statement _
-
-
-  $default       reduce using rule 18 (statement)  [after shift]
-
-----------
-  
-<<'----------',
-I065 = 
-  ( 42) factor : '(' expression ')' _
-
-
-  $default       reduce using rule 42 (factor)  [after shift]
-
-----------
-  
-<<'----------',
-I066 = 
-  ( 35) term : term '*' factor _
-
-
-  $default       reduce using rule 35 (term)  [after shift]
-
-----------
-  
-<<'----------',
-I067 = 
-  ( 36) term : term '/' factor _
-
-
-  $default       reduce using rule 36 (term)  [after shift]
-
-----------
-  
-<<'----------',
-I068 = 
-  ( 31) expression : expression '+' term _
-  ( 35) term : term _ '*' factor
-  ( 36) term : term _ '/' factor
-
-  '*'             shift, and goto to state 42
-  '/'             shift, and goto to state 43
-
-  $default       reduce using rule 31 (expression) 
-
-----------
-  
-<<'----------',
-I069 = 
-  ( 26) condition : expression NOTEQ expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 26 (condition) 
-
-----------
-  
-<<'----------',
-I070 = 
-  ( 32) expression : expression '-' term _
-  ( 35) term : term _ '*' factor
-  ( 36) term : term _ '/' factor
-
-  '*'             shift, and goto to state 42
-  '/'             shift, and goto to state 43
-
-  $default       reduce using rule 32 (expression) 
-
-----------
-  
-<<'----------',
-I071 = 
-  ( 27) condition : expression LT expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 27 (condition) 
-
-----------
-  
-<<'----------',
-I072 = 
-  ( 28) condition : expression GT expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 28 (condition) 
-
-----------
-  
-<<'----------',
-I073 = 
-  ( 29) condition : expression LE expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 29 (condition) 
-
-----------
-  
-<<'----------',
-I074 = 
-  ( 25) condition : expression EQ expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 25 (condition) 
-
-----------
-  
-<<'----------',
-I075 = 
-  ( 30) condition : expression GE expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 30 (condition) 
-
-----------
-  
-<<'----------',
-I076 = 
-  ( 11) const_init : IDENT EQ NUMBER _
-
-
-  $default       reduce using rule 11 (const_init)  [after shift]
-
-----------
-  
-<<'----------',
-I077 = 
-  ( 10) const_init_list : const_init_list ',' const_init _
-
-
-  $default       reduce using rule 10 (const_init_list)  [after shift]
-
-----------
-  
-<<'----------',
-I078 = 
-  ( 23) opt_state_list : opt_state_list ';' _ statement
-
-  IDENT           shift, and goto to state 7
-  BEGINN          shift, and goto to state 9
-  IF              shift, and goto to state 13
-  WHILE           shift, and goto to state 6
-  RETURN          shift, and goto to state 10
-  WRITE           shift, and goto to state 11
-  WRITELN         shift, and goto to state 14
-
-  $default       reduce using rule 14 (statement) 
-
-----------
-  
-<<'----------',
-I079 = 
-  ( 16) statement : BEGINN statement opt_state_list END _
-
-
-  $default       reduce using rule 16 (statement)  [after shift]
-
-----------
-  
-<<'----------',
-I080 = 
-  ( 13) ident_list : ident_list ',' IDENT _
-
-
-  $default       reduce using rule 13 (ident_list)  [after shift]
-
-----------
-  
-<<'----------',
-I081 = 
-  ( 17) statement : IF condition THEN statement _
-
-
-  $default       reduce using rule 17 (statement)  [after shift]
-
-----------
-  
-<<'----------',
-I082 = 
-  (  8) decl : FUNCTION IDENT '(' ident_list _ ')' block ';'
-  ( 13) ident_list : ident_list _ ',' IDENT
-
-  ')'             shift, and goto to state 87
-  ','             shift, and goto to state 58
-
-
-----------
-  
-<<'----------',
-I083 = 
-  (  7) decl : FUNCTION IDENT '(' ')' _ block ';'
-
-
-  $default       reduce using rule 3 (opt_decl_list)  [after shift]
-
-----------
-  
-<<'----------',
-I084 = 
-  ( 41) factor : IDENT '(' exp_list ')' _
-
-
-  $default       reduce using rule 41 (factor)  [after shift]
-
-----------
-  
-<<'----------',
-I085 = 
-  ( 44) exp_list : exp_list ',' _ expression
-
-  IDENT           shift, and goto to state 19
-  '('             shift, and goto to state 21
-  NUMBER          shift, and goto to state 17
-  '-'             shift, and goto to state 22
-
-
-----------
-  
-<<'----------',
-I086 = 
-  ( 23) opt_state_list : opt_state_list ';' statement _
-
-
-  $default       reduce using rule 23 (opt_state_list)  [after shift]
-
-----------
-  
-<<'----------',
-I087 = 
-  (  8) decl : FUNCTION IDENT '(' ident_list ')' _ block ';'
-
-
-  $default       reduce using rule 3 (opt_decl_list)  [after shift]
-
-----------
-  
-<<'----------',
-I088 = 
-  (  7) decl : FUNCTION IDENT '(' ')' block _ ';'
-
-  ';'             shift, and goto to state 91
-
-
-----------
-  
-<<'----------',
-I089 = 
-  ( 44) exp_list : exp_list ',' expression _
-  ( 31) expression : expression _ '+' term
-  ( 32) expression : expression _ '-' term
-
-  '+'             shift, and goto to state 44
-  '-'             shift, and goto to state 46
-
-  $default       reduce using rule 44 (exp_list) 
-
-----------
-  
-<<'----------',
-I090 = 
-  (  8) decl : FUNCTION IDENT '(' ident_list ')' block _ ';'
-
-  ';'             shift, and goto to state 92
-
-
-----------
-  
-<<'----------',
-I091 = 
-  (  7) decl : FUNCTION IDENT '(' ')' block ';' _
-
-
-  $default       reduce using rule 7 (decl)  [after shift]
-
-----------
-  
-<<'----------',
-I092 = 
-  (  8) decl : FUNCTION IDENT '(' ident_list ')' block ';' _
-
-
-  $default       reduce using rule 8 (decl)  [after shift]
-
-----------
-  ]
-
-
-  Tables = [ reduce_table, nparams, action_table,
-             defred_table, defred_after_shift_table, goto_table,
-             t2i, i2t, nt2i, i2nt ]
-
-  def self.createDecoratedParser
-    D4PL0d::ASTBuilder.new(PL0d.new())
-  end
-
-  ### Inner Code
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
-          when /\A\s+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A:=/
-            @oldline = @line; @line = $'
-                 yield token(:COLOEQ, $&)    
-
-        
-          when /\A<>/
-            @oldline = @line; @line = $'
-                 yield token(:NOTEQ, $&)     
-
-        
-          when /\A<=/
-            @oldline = @line; @line = $'
-                 yield token(:LE, $&)        
-
-        
-          when /\A>=/
-            @oldline = @line; @line = $'
-                 yield token(:GE, $&)        
-
-        
-          when /\A=/
-            @oldline = @line; @line = $'
-                 yield token(:EQ, $&)        
-
-        
-          when /\A</
-            @oldline = @line; @line = $'
-                 yield token(:LT, $&)        
-
-        
-          when /\A>/
-            @oldline = @line; @line = $'
-                 yield token(:GT, $&)        
-
-        
-          when /\Aconst/
-            @oldline = @line; @line = $'
-                 yield token(:CONST, $&)     
-
-        
-          when /\Avar/
-            @oldline = @line; @line = $'
-                 yield token(:VAR, $&)       
-
-        
-          when /\Afunction/
-            @oldline = @line; @line = $'
-                 yield token(:FUNCTION, $&)  
-
-        
-          when /\Abegin/
-            @oldline = @line; @line = $'
-                 yield token(:BEGINN, $&)    
-
-        
-          when /\Aend/
-            @oldline = @line; @line = $'
-                 yield token(:END, $&)       
-
-        
-          when /\Aif/
-            @oldline = @line; @line = $'
-                 yield token(:IF, $&)        
-
-        
-          when /\Athen/
-            @oldline = @line; @line = $'
-                 yield token(:THEN, $&)      
-
-        
-          when /\Awhile/
-            @oldline = @line; @line = $'
-                 yield token(:WHILE, $&)     
-
-        
-          when /\Ado/
-            @oldline = @line; @line = $'
-                 yield token(:DO, $&)        
-
-        
-          when /\Areturn/
-            @oldline = @line; @line = $'
-                 yield token(:RETURN, $&)    
-
-        
-          when /\Awriteln/
-            @oldline = @line; @line = $'
-                 yield token(:WRITELN, $&)   
-
-        
-          when /\Awrite/
-            @oldline = @line; @line = $'
-                 yield token(:WRITE, $&)     
-
-        
-          when /\Aodd/
-            @oldline = @line; @line = $'
-                 yield token(:ODD, $&)       
-
-        
-          when /\A[a-zA-Z][a-zA-Z0-9_]*/
-            @oldline = @line; @line = $'
-                 yield token(:IDENT, $&)       
-
-        
-          when /\A[0-9]+/
-            @oldline = @line; @line = $'
-                 yield token(:NUMBER, $&.to_i) 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&, $&)           
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-class Node
-  attr_accessor :lineno
-  attr_accessor :value
-  
-          def initialize
-                 @value = nil 
-
-          end
-        
-  def self.[] lineno, *args
-    self.new lineno, *args
-  end
-  def accept v
-  end
-end
-class NodeList < Node
-  attr_accessor :lineno
-  def initialize(lineno, lst=[])
-    @lineno = lineno
-    @lst = lst.to_a.select{|i| ! i.is_a?(NilNode)}
-  end
-  
-  def all_value
-    @lst.map{|i| i.value} 
-  end
-  
-  def size
-    @lst.size
-  end
-  alias length size
-  def push(i)
-    @lst.push i unless i.is_a? NilNode
-    self
-  end
-  def concat(i)
-    @lst.concat i
-    self
-  end
-  def to_ary()
-    @lst
-  end
-  alias to_a to_ary
-  alias list to_ary
-  def accept(v)
-    @lst.each{|i| i.accept(v) }
-  end
-end
-class NilNode
-  attr_accessor :lineno
-  attr_accessor :value
-  def initialize(lineno, *args)
-    @lineno = lineno
-  end
-  def accept v
-  end
-end
-class Node_program < Node
-  attr_accessor :block
-  attr_accessor 
-  def initialize lineno, block
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @block = block
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_program(self)
-    self
-  end
-end
-class Node_block < Node
-  attr_accessor :decls, :stmt
-  attr_accessor 
-  def initialize lineno, decls, stmt
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @decls = decls
-    @stmt = stmt
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_block(self)
-    self
-  end
-end
-class Node_var_decl < Node
-  attr_accessor :idents
-  attr_accessor :idents
-  def initialize lineno, idents
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @idents = idents
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_var_decl(self)
-    self
-  end
-end
-class Node_const_decl < Node
-  attr_accessor :const_inits
-  attr_accessor 
-  def initialize lineno, const_inits
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @const_inits = const_inits
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_const_decl(self)
-    self
-  end
-end
-class Node_const_init < Node
-  attr_accessor :ident, :number
-  attr_accessor :ident, :number
-  def initialize lineno, ident, number
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @ident = ident
-    @number = number
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_const_init(self)
-    self
-  end
-end
-class Node_func_decl < Node
-  attr_accessor :ident, :params, :block
-  attr_accessor :ident, :params, :block
-  def initialize lineno, ident, params, block
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @ident = ident
-    @params = params
-    @block = block
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_func_decl(self)
-    self
-  end
-end
-class Node_nop_stmt < Node
-  attr_accessor :nop
-  attr_accessor :nop
-  def initialize lineno, nop
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @nop = nop
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_nop_stmt(self)
-    self
-  end
-end
-class Node_assign_stmt < Node
-  attr_accessor :ident, :expr
-  attr_accessor :ident
-  def initialize lineno, ident, expr
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @ident = ident
-    @expr = expr
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_assign_stmt(self)
-    self
-  end
-end
-class Node_begin_stmt < Node
-  attr_accessor :stmt, :stmts
-  attr_accessor 
-  def initialize lineno, stmt, stmts
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @stmt = stmt
-    @stmts = stmts
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_begin_stmt(self)
-    self
-  end
-end
-class Node_if_stmt < Node
-  attr_accessor :cond, :stmt
-  attr_accessor 
-  def initialize lineno, cond, stmt
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @cond = cond
-    @stmt = stmt
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_if_stmt(self)
-    self
-  end
-end
-class Node_while_stmt < Node
-  attr_accessor :cond, :stmt
-  attr_accessor 
-  def initialize lineno, cond, stmt
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @cond = cond
-    @stmt = stmt
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_while_stmt(self)
-    self
-  end
-end
-class Node_return_stmt < Node
-  attr_accessor :expr
-  attr_accessor 
-  def initialize lineno, expr
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @expr = expr
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_return_stmt(self)
-    self
-  end
-end
-class Node_apply < Node
-  attr_accessor :ident, :args
-  attr_accessor :ident, :args
-  def initialize lineno, ident, args
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @ident = ident
-    @args = args
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_apply(self)
-    self
-  end
-end
-class Node_refv < Node
-  attr_accessor :ident
-  attr_accessor :ident
-  def initialize lineno, ident
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @ident = ident
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_refv(self)
-    self
-  end
-end
-class Node_number < Node
-  attr_accessor :n
-  attr_accessor :n
-  def initialize lineno, n
-    super()
-    @lineno = lineno
-        @lineno = lineno
-    @n = n
-
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    
-    v.visit_Node_number(self)
-    self
-  end
-end
-
-          class Visitor
-            def visit node
-              node.accept(self)
-            end
-          
-module_eval <<-'.,.,122745803753111.,.,', 'pl0d/pl0ds.dr', 38
-
-    STEntry = Struct.new(:kind, :narg, :value)
-    def initialize
-      @global = {
-        '+'  => STEntry.new(:FUNC, 2, proc{|a| a[0] + a[1] }),
-        '-'  => STEntry.new(:FUNC, 2, proc{|a| a[0] - a[1] }),
-        '*'  => STEntry.new(:FUNC, 2, proc{|a| a[0] * a[1] }),
-        '/'  => STEntry.new(:FUNC, 2, proc{|a| a[0] / a[1] }),
-        '='  => STEntry.new(:FUNC, 2, proc{|a| a[0] == a[1] ? 1 : 0}),
-        '<>' => STEntry.new(:FUNC, 2, proc{|a| a[0] != a[1] ? 1 : 0}),
-        '<'  => STEntry.new(:FUNC, 2, proc{|a| a[0] <  a[1] ? 1 : 0}),
-        '>'  => STEntry.new(:FUNC, 2, proc{|a| a[0] >  a[1] ? 1 : 0}),
-        '<=' => STEntry.new(:FUNC, 2, proc{|a| a[0] <= a[1] ? 1 : 0}),
-        '>=' => STEntry.new(:FUNC, 2, proc{|a| a[0] >= a[1] ? 1 : 0}),
-        'odd'=> STEntry.new(:FUNC, 1, proc{|a| a[0] & 1 }),
-
-        'write'   => STEntry.new(:FUNC, 1, proc{|a| print "#{a[0]} "; 1}),
-        'writeln' => STEntry.new(:FUNC, 0, proc{|a| puts ''; 1}),
-      }
-      @env = [@global]
-    end
-    def lookup name
-      @env.reverse_each{|s| return s[name] if s[name]}
-      return nil
-    end
-    def dump_env n = 2
-      n = @env.size if n > @env.size
-      e = @env[n..-1].map{|i| Hash[* i.map{|k, v| [k, v.value]}.flatten ] }
-      warn e.pretty_inspect
-    end
-
-.,.,122745803753111.,.,
-
-module_eval <<-'.,.,122745803710602.,.,', 'pl0d/pl0ds.dr', 69
-def visit_Node_program node
-
-    visit(node.block)
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803710602.,.,
-      
-module_eval <<-'.,.,122745803712198.,.,', 'pl0d/pl0ds.dr', 73
-def visit_Node_block node
-
-    @env.push({})
-    visit(node.decls)
-    visit(node.stmt)
-    @env.pop
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803712198.,.,
-      
-module_eval <<-'.,.,122745803756671.,.,', 'pl0d/pl0ds.dr', 80
-def visit_Node_var_decl node
-
-    node.idents.to_a.each do |ident|
-      if @env.last[ident.value]
-        warn "'#{ident.value}' already exist."; exit
-      else
-        @env.last[ident.value] = STEntry.new(:VAR, 0, 0)
-      end
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803756671.,.,
-      
-module_eval <<-'.,.,122745803763047.,.,', 'pl0d/pl0ds.dr', 90
-def visit_Node_const_decl node
-
-    visit(node.const_inits)
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803763047.,.,
-      
-module_eval <<-'.,.,12274580374346.,.,', 'pl0d/pl0ds.dr', 94
-def visit_Node_const_init node
-
-    if @env.last[node.ident.value]
-      warn "'#{node.ident.value}' already exist."; exit
-    else
-      @env.last[node.ident.value] = STEntry.new(:CONST, 0, node.number.value)
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,12274580374346.,.,
-      
-module_eval <<-'.,.,122745803759988.,.,', 'pl0d/pl0ds.dr', 102
-def visit_Node_func_decl node
-
-    if @env[0][node.ident.value]
-      warn "'#{node.ident.value}' already exist."; exit
-    end
-    body = proc do |args|
-      value = 0
-      n = @env.size
-      @env.push({})
-      value = catch(:return) do
-        @env.last['return'] = STEntry.new(:VAR, 0, :return)
-        node.params.to_a.each_with_index do |a, x|
-          @env.last[a.value] = STEntry.new(:VAR, 0, args[x])
-        end
-        visit(node.block)
-      end
-      @env = @env[0, n]
-      value
-    end
-    @env.last[node.ident.value] = STEntry.new(:FUNC, node.params.size, body)
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803759988.,.,
-      
-module_eval <<-'.,.,122745803743066.,.,', 'pl0d/pl0ds.dr', 123
-def visit_Node_nop_stmt node
-
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803743066.,.,
-      
-module_eval <<-'.,.,12274580372012.,.,', 'pl0d/pl0ds.dr', 126
-def visit_Node_assign_stmt node
-
-    if ent = lookup(node.ident.value)
-      unless ent.kind == :VAR
-        warn "'#{node.ident.value}' not var."; exit
-      end
-      ent.value = visit(node.expr).value
-    else
-      warn @env.pretty_inspect
-      warn "'#{node.ident.value}' not found."; exit
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,12274580372012.,.,
-      
-module_eval <<-'.,.,122745803760775.,.,', 'pl0d/pl0ds.dr', 138
-def visit_Node_begin_stmt node
-
-    visit(node.stmt)
-    visit(node.stmts)
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803760775.,.,
-      
-module_eval <<-'.,.,122745803752460.,.,', 'pl0d/pl0ds.dr', 143
-def visit_Node_if_stmt node
-
-    if visit(node.cond).value != 0
-      visit(node.stmt)
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803752460.,.,
-      
-module_eval <<-'.,.,122745803711909.,.,', 'pl0d/pl0ds.dr', 149
-def visit_Node_while_stmt node
-
-    while visit(node.cond).value != 0
-      visit(node.stmt)
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803711909.,.,
-      
-module_eval <<-'.,.,12274580374630.,.,', 'pl0d/pl0ds.dr', 155
-def visit_Node_return_stmt node
-
-    ent = nil
-    @env.reverse_each{|s| break if ent = s['return'] }
-    unless ent
-      warn "'return' not in func."; exit
-    end
-    throw :return, visit(node.expr).value
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,12274580374630.,.,
-      
-module_eval <<-'.,.,122745803718131.,.,', 'pl0d/pl0ds.dr', 164
-def visit_Node_apply node
-
-    ent = nil
-    @env.reverse_each{|s| break if ent = s[node.ident.value] }
-    unless ent
-      warn "'#{node.ident.value}' not found."; exit
-    end
-    unless ent.kind == :FUNC
-      warn "'#{node.ident.value}' not func."; exit
-    end
-
-    args = node.args.to_a.map{|a| visit(a).value } 
-    # warn "#{'  '*(@env.size-2)}|#{node.ident.value} : #{args.inspect}"
-    unless ent.narg == args.size
-      warn "#{ent.narg} #{args.size} #{args.inspect}"
-      warn "'#{node.ident.value}' unmatch args."; exit
-    end
-    node.value = ent.value.call(args)
-    # warn "#{'  '*(@env.size-2)}|-> #{node.value} @ #{node.ident.value}"
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803718131.,.,
-      
-module_eval <<-'.,.,122745803748774.,.,', 'pl0d/pl0ds.dr', 184
-def visit_Node_refv node
-
-    unless ent = lookup(node.ident.value)
-      warn "'#{node.ident.value}' not found."; exit
-    end
-    if ent.kind == :VAR || ent.kind == :CONST
-      node.value = ent.value
-    else
-      warn "'#{node.ident.value}' not var."; exit
-    end
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803748774.,.,
-      
-module_eval <<-'.,.,122745803759286.,.,', 'pl0d/pl0ds.dr', 195
-def visit_Node_number node
-
-    node.value = node.n.value
-
-      rescue
-        warn "raise at src:#{node.lineno}/#{node.class.name}"
-        raise
-    
-end
-.,.,122745803759286.,.,
-      
-          end
-        
-class D4PL0d::ASTBuilder < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              :_ast_0,
-  :_ast_1,
-  :_ast_2,
-  :_ast_3,
-  :_ast_4,
-  :_ast_5,
-  :_ast_6,
-  :_ast_7,
-  :_ast_8,
-  :_ast_9,
-  :_ast_10,
-  :_ast_11,
-  :_ast_12,
-  :_ast_13,
-  :_ast_14,
-  :_ast_15,
-  :_ast_16,
-  :_ast_17,
-  :_ast_18,
-  :_ast_19,
-  :_ast_20,
-  :_ast_21,
-  :_ast_22,
-  :_ast_23,
-  :_ast_24,
-  :_ast_25,
-  :_ast_26,
-  :_ast_27,
-  :_ast_28,
-  :_ast_29,
-  :_ast_30,
-  :_ast_31,
-  :_ast_32,
-  :_ast_33,
-  :_ast_34,
-  :_ast_35,
-  :_ast_36,
-  :_ast_37,
-  :_ast_38,
-  :_ast_39,
-  :_ast_40,
-  :_ast_41,
-  :_ast_42,
-  :_ast_43,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'ASTBuilder'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803713657.,.,', 'pl0d/pl0ds.dr', 202
-def _ast_0 val
-Node_program.new(val[0].lineno, val[0])
-end
-.,.,122745803713657.,.,
-      
-module_eval <<-'.,.,122745803762417.,.,', 'pl0d/pl0ds.dr', 207
-def _ast_1 val
-Node_block.new(val[0].lineno, val[0], val[1])
-end
-.,.,122745803762417.,.,
-      
-module_eval <<-'.,.,122745803749311.,.,', 'pl0d/pl0ds.dr', 211
-def _ast_2 val
-NodeList.new(basis.file.lineno, [])
-end
-.,.,122745803749311.,.,
-      
-module_eval <<-'.,.,122745803732974.,.,', 'pl0d/pl0ds.dr', 213
-def _ast_3 val
-val[0].push(val[1])
-end
-.,.,122745803732974.,.,
-      
-module_eval <<-'.,.,122745803722420.,.,', 'pl0d/pl0ds.dr', 218
-def _ast_4 val
-Node_const_decl.new(val[0].lineno, val[1])
-end
-.,.,122745803722420.,.,
-      
-module_eval <<-'.,.,12274580377011.,.,', 'pl0d/pl0ds.dr', 220
-def _ast_5 val
-Node_var_decl.new(val[0].lineno, val[1])
-end
-.,.,12274580377011.,.,
-      
-module_eval <<-'.,.,12274580372583.,.,', 'pl0d/pl0ds.dr', 222
-def _ast_6 val
-Node_func_decl.new(val[0].lineno, val[1], NodeList.new(basis.file.lineno, []), val[4])
-end
-.,.,12274580372583.,.,
-      
-module_eval <<-'.,.,122745803761637.,.,', 'pl0d/pl0ds.dr', 224
-def _ast_7 val
-Node_func_decl.new(val[0].lineno, val[1], val[3], val[5])
-end
-.,.,122745803761637.,.,
-      
-module_eval <<-'.,.,12274580378445.,.,', 'pl0d/pl0ds.dr', 229
-def _ast_8 val
-NodeList.new(val[0].lineno, [val[0]])
-end
-.,.,12274580378445.,.,
-      
-module_eval <<-'.,.,122745803733482.,.,', 'pl0d/pl0ds.dr', 231
-def _ast_9 val
-val[0].push(val[2])
-end
-.,.,122745803733482.,.,
-      
-module_eval <<-'.,.,122745803723547.,.,', 'pl0d/pl0ds.dr', 236
-def _ast_10 val
-Node_const_init.new(val[0].lineno, val[0], val[2])
-end
-.,.,122745803723547.,.,
-      
-module_eval <<-'.,.,12274580375797.,.,', 'pl0d/pl0ds.dr', 241
-def _ast_11 val
-NodeList.new(val[0].lineno, [val[0]])
-end
-.,.,12274580375797.,.,
-      
-module_eval <<-'.,.,122745803727046.,.,', 'pl0d/pl0ds.dr', 243
-def _ast_12 val
-val[0].push(val[2])
-end
-.,.,122745803727046.,.,
-      
-module_eval <<-'.,.,12274580376389.,.,', 'pl0d/pl0ds.dr', 247
-def _ast_13 val
-Node_nop_stmt.new(basis.file.lineno, NodeList.new(basis.file.lineno, []))
-end
-.,.,12274580376389.,.,
-      
-module_eval <<-'.,.,122745803758162.,.,', 'pl0d/pl0ds.dr', 249
-def _ast_14 val
-Node_assign_stmt.new(val[0].lineno, val[0], val[2])
-end
-.,.,122745803758162.,.,
-      
-module_eval <<-'.,.,122745803757908.,.,', 'pl0d/pl0ds.dr', 251
-def _ast_15 val
-Node_begin_stmt.new(val[0].lineno, val[1], val[2])
-end
-.,.,122745803757908.,.,
-      
-module_eval <<-'.,.,122745803737264.,.,', 'pl0d/pl0ds.dr', 253
-def _ast_16 val
-Node_if_stmt.new(val[0].lineno, val[1], val[3])
-end
-.,.,122745803737264.,.,
-      
-module_eval <<-'.,.,122745803762624.,.,', 'pl0d/pl0ds.dr', 255
-def _ast_17 val
-Node_while_stmt.new(val[0].lineno, val[1], val[3])
-end
-.,.,122745803762624.,.,
-      
-module_eval <<-'.,.,122745803760629.,.,', 'pl0d/pl0ds.dr', 257
-def _ast_18 val
-Node_return_stmt.new(val[0].lineno, val[1])
-end
-.,.,122745803760629.,.,
-      
-module_eval <<-'.,.,122745803718773.,.,', 'pl0d/pl0ds.dr', 259
-def _ast_19 val
-Node_apply.new(val[0].lineno, Depager::Token['write'], NodeList.new(val[0].lineno, [val[1]]))
-end
-.,.,122745803718773.,.,
-      
-module_eval <<-'.,.,122745803738626.,.,', 'pl0d/pl0ds.dr', 261
-def _ast_20 val
-Node_apply.new(val[0].lineno, Depager::Token['writeln'], NodeList.new(basis.file.lineno, []))
-end
-.,.,122745803738626.,.,
-      
-module_eval <<-'.,.,122745803715270.,.,', 'pl0d/pl0ds.dr', 265
-def _ast_21 val
-NodeList.new(basis.file.lineno, [])
-end
-.,.,122745803715270.,.,
-      
-module_eval <<-'.,.,122745803715959.,.,', 'pl0d/pl0ds.dr', 267
-def _ast_22 val
-val[0].push(val[2])
-end
-.,.,122745803715959.,.,
-      
-module_eval <<-'.,.,12274580378713.,.,', 'pl0d/pl0ds.dr', 272
-def _ast_23 val
-Node_apply.new(val[0].lineno, Depager::Token['odd'], NodeList.new(val[0].lineno, [val[1]]))
-end
-.,.,12274580378713.,.,
-      
-module_eval <<-'.,.,12274580374814.,.,', 'pl0d/pl0ds.dr', 274
-def _ast_24 val
-Node_apply.new(val[0].lineno, Depager::Token['='], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,12274580374814.,.,
-      
-module_eval <<-'.,.,122745803734597.,.,', 'pl0d/pl0ds.dr', 276
-def _ast_25 val
-Node_apply.new(val[0].lineno, Depager::Token['<>'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803734597.,.,
-      
-module_eval <<-'.,.,122745803754023.,.,', 'pl0d/pl0ds.dr', 278
-def _ast_26 val
-Node_apply.new(val[0].lineno, Depager::Token['<'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803754023.,.,
-      
-module_eval <<-'.,.,122745803747744.,.,', 'pl0d/pl0ds.dr', 280
-def _ast_27 val
-Node_apply.new(val[0].lineno, Depager::Token['>'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803747744.,.,
-      
-module_eval <<-'.,.,122745803723623.,.,', 'pl0d/pl0ds.dr', 282
-def _ast_28 val
-Node_apply.new(val[0].lineno, Depager::Token['<='], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803723623.,.,
-      
-module_eval <<-'.,.,122745803731202.,.,', 'pl0d/pl0ds.dr', 284
-def _ast_29 val
-Node_apply.new(val[0].lineno, Depager::Token['>='], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803731202.,.,
-      
-module_eval <<-'.,.,122745803753646.,.,', 'pl0d/pl0ds.dr', 289
-def _ast_30 val
-Node_apply.new(val[0].lineno, Depager::Token['+'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803753646.,.,
-      
-module_eval <<-'.,.,122745803723858.,.,', 'pl0d/pl0ds.dr', 291
-def _ast_31 val
-Node_apply.new(val[0].lineno, Depager::Token['-'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803723858.,.,
-      
-module_eval <<-'.,.,122745803731132.,.,', 'pl0d/pl0ds.dr', 293
-def _ast_32 val
-val[0]
-end
-.,.,122745803731132.,.,
-      
-module_eval <<-'.,.,122745803722247.,.,', 'pl0d/pl0ds.dr', 295
-def _ast_33 val
-Node_apply.new(val[0].lineno, Depager::Token['UMINUS'], NodeList.new(val[0].lineno, [val[1]]))
-end
-.,.,122745803722247.,.,
-      
-module_eval <<-'.,.,122745803761813.,.,', 'pl0d/pl0ds.dr', 300
-def _ast_34 val
-Node_apply.new(val[0].lineno, Depager::Token['*'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803761813.,.,
-      
-module_eval <<-'.,.,122745803758885.,.,', 'pl0d/pl0ds.dr', 302
-def _ast_35 val
-Node_apply.new(val[0].lineno, Depager::Token['/'], NodeList.new(val[0].lineno, [val[0], val[2]]))
-end
-.,.,122745803758885.,.,
-      
-module_eval <<-'.,.,122745803738159.,.,', 'pl0d/pl0ds.dr', 304
-def _ast_36 val
-val[0]
-end
-.,.,122745803738159.,.,
-      
-module_eval <<-'.,.,122745803725103.,.,', 'pl0d/pl0ds.dr', 309
-def _ast_37 val
-Node_refv.new(val[0].lineno, val[0])
-end
-.,.,122745803725103.,.,
-      
-module_eval <<-'.,.,12274580372405.,.,', 'pl0d/pl0ds.dr', 311
-def _ast_38 val
-Node_number.new(val[0].lineno, val[0])
-end
-.,.,12274580372405.,.,
-      
-module_eval <<-'.,.,1227458037216.,.,', 'pl0d/pl0ds.dr', 313
-def _ast_39 val
-Node_apply.new(val[0].lineno, val[0], NodeList.new(basis.file.lineno, []))
-end
-.,.,1227458037216.,.,
-      
-module_eval <<-'.,.,12274580371820.,.,', 'pl0d/pl0ds.dr', 315
-def _ast_40 val
-Node_apply.new(val[0].lineno, val[0], val[2])
-end
-.,.,12274580371820.,.,
-      
-module_eval <<-'.,.,122745803748521.,.,', 'pl0d/pl0ds.dr', 317
-def _ast_41 val
-val[1]
-end
-.,.,122745803748521.,.,
-      
-module_eval <<-'.,.,122745803744691.,.,', 'pl0d/pl0ds.dr', 322
-def _ast_42 val
-NodeList.new(val[0].lineno, [val[0]])
-end
-.,.,122745803744691.,.,
-      
-module_eval <<-'.,.,122745803717899.,.,', 'pl0d/pl0ds.dr', 324
-def _ast_43 val
-val[0].push(val[2])
-end
-.,.,122745803717899.,.,
-      
-end
-      
-
-def createDecoratedPL0d
-  D4PL0d::ASTBuilder.new(PL0d.new())
-end
-
-### main
-if __FILE__ == $0
-### Main Code
-require 'pp'
-psr = createDecoratedPL0d
-t, = psr.parse(STDIN)
-# pp t
-v = Visitor.new
-t.accept(v)
-
-end