depager 0.2.0 → 0.2.2

data/examples/pl0d/pl0ds.dr

@@ -1,7 +1,7 @@
 %class PL0d
 %extend Lexer ('depager/lex.rb')
-%extend ASTBuilderLazy ('depager/astl.rb')
-%decorate @ASTBuilderLazy
+%extend ASTBuilder ('depager/ast.rb')
+%decorate @ASTBuilder
 #%decorate ShiftReducePrinter ('depager/srp.rb')
 %%
 %LEX{
@@ -68,18 +68,18 @@
   }
   program(block)
   {
-    visit(~block)
+    visit($.block)
   }
   block(decls, stmt)
   {
     @env.push({})
-    visit(~decls)
-    visit(~stmt)
+    visit($.decls)
+    visit($.stmt)
     @env.pop
   }
   var_decl(-idents)
   {
-    ~idents.each do |ident|
+    $.idents.to_a.each do |ident|
       if @env.last[ident.value]
         warn "'#{ident.value}' already exist."; exit
       else
@@ -89,67 +89,67 @@
   }
   const_decl(const_inits)
   {
-    visit(~const_inits)
+    visit($.const_inits)
   }
   const_init(-ident, -number)
   {
-    if @env.last[~ident.value]
-      warn "'#{~ident.value}' already exist."; exit
+    if @env.last[$.ident.value]
+      warn "'#{$.ident.value}' already exist."; exit
     else
-      @env.last[~ident.value] = STEntry.new(:CONST, 0, ~number.value)
+      @env.last[$.ident.value] = STEntry.new(:CONST, 0, $.number.value)
     end
   }
   func_decl(-ident, -params, -block)
   {
-    if @env[0][~ident.value]
-      warn "'#{~ident.value}' already exist."; exit
+    if @env[0][$.ident.value]
+      warn "'#{$.ident.value}' already exist."; exit
     end
     body = proc do |args|
       value = 0
       n = @env.size
       @env.push({})
-      value = callcc do |c|
-        @env.last['return'] = STEntry.new(:VAR, 0, c)
-        ~params.each_with_index do |a, x|
+      value = catch(:return) do
+        @env.last['return'] = STEntry.new(:VAR, 0, :return)
+        $.params.to_a.each_with_index do |a, x|
           @env.last[a.value] = STEntry.new(:VAR, 0, args[x])
         end
-        visit(~block)
+        visit($.block)
       end
       @env = @env[0, n]
       value
     end
-    @env.last[~ident.value] = STEntry.new(:FUNC, ~params.size, body)
+    @env.last[$.ident.value] = STEntry.new(:FUNC, $.params.size, body)
   }
   nop_stmt(-nop)
   {
   }
   assign_stmt(-ident, expr)
   {
-    if ent = lookup(~ident.value)
+    if ent = lookup($.ident.value)
       unless ent.kind == :VAR
-        warn "'#{~ident.value}' not var."; exit
+        warn "'#{$.ident.value}' not var."; exit
       end
-      ent.value = visit(~expr).value
+      ent.value = visit($.expr).value
     else
       warn @env.pretty_inspect
-      warn "'#{~ident.value}' not found."; exit
+      warn "'#{$.ident.value}' not found."; exit
     end
   }
   begin_stmt(stmt, stmts)
   {
-    visit(~stmt)
-    visit(~stmts)
+    visit($.stmt)
+    visit($.stmts)
   }
   if_stmt(cond, stmt)
   {
-    if visit(~cond).value != 0
-      visit(~stmt)
+    if visit($.cond).value != 0
+      visit($.stmt)
     end
   }
   while_stmt(cond, stmt)
   {
-    while visit(~cond).value != 0
-      visit(~stmt)
+    while visit($.cond).value != 0
+      visit($.stmt)
     end
   }
   return_stmt(expr)
@@ -159,42 +159,42 @@
     unless ent
       warn "'return' not in func."; exit
     end
-    ent.value.call(visit(~expr).value)
+    throw :return, visit($.expr).value
   }
   apply(-ident, -args)
   {
     ent = nil
-    @env.reverse_each{|s| break if ent = s[~ident.value] }
+    @env.reverse_each{|s| break if ent = s[$.ident.value] }
     unless ent
-      warn "'#{~ident.value}' not found."; exit
+      warn "'#{$.ident.value}' not found."; exit
     end
     unless ent.kind == :FUNC
-      warn "'#{~ident.value}' not func."; exit
+      warn "'#{$.ident.value}' not func."; exit
     end
 
-    args = ~args.map{|a| visit(a).value } 
-    # warn "#{'  '*(@env.size-2)}|#{~ident.value} : #{args.inspect}"
+    args = $.args.to_a.map{|a| visit(a).value } 
+    # warn "#{'  '*(@env.size-2)}|#{$.ident.value} : #{args.inspect}"
     unless ent.narg == args.size
       warn "#{ent.narg} #{args.size} #{args.inspect}"
-      warn "'#{~ident.value}' unmatch args."; exit
+      warn "'#{$.ident.value}' unmatch args."; exit
     end
-    ~value = ent.value.call(args)
-    # warn "#{'  '*(@env.size-2)}|-> #{~value} @ #{~ident.value}"
+    $.value = ent.value.call(args)
+    # warn "#{'  '*(@env.size-2)}|-> #{$.value} @ #{$.ident.value}"
   }
   refv(-ident)
   {
-    unless ent = lookup(~ident.value)
-      warn "'#{~ident.value}' not found."; exit
+    unless ent = lookup($.ident.value)
+      warn "'#{$.ident.value}' not found."; exit
     end
     if ent.kind == :VAR || ent.kind == :CONST
-      ~value = ent.value
+      $.value = ent.value
     else
-      warn "'#{~ident.value}' not var."; exit
+      warn "'#{$.ident.value}' not var."; exit
     end
   }
   number(-n)
   {
-    ~value = ~n.value
+    $.value = $.n.value
   }
 %}
 #begin-rule

data/examples/pl0d/pl0ds.tab.rb

@@ -3,8 +3,8 @@ begin; require 'rubygems'; rescue Exception; end
 require 'depager/parser.rb'
 
 
-module D4PL0d
-end
+module Depager::DecoratorUtils; end
+module D4PL0d;    end
 
 class PL0d < Depager::LALR::Basis
   
@@ -12,19 +12,19 @@ class PL0d < Depager::LALR::Basis
   ### Reduce Table
   reduce_table = [
     [   -1,    1 ], # (  0) $start : program
-    [    0,    2 ], # (  1) program : block .
+    [    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 ;
+    [    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
+    [    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
+    [    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
@@ -34,7 +34,7 @@ class PL0d < Depager::LALR::Basis
     [    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
+    [    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
@@ -42,24 +42,24 @@ class PL0d < Depager::LALR::Basis
     [   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,    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
+    [    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 )
+    [   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
+    [   13,    3 ], # ( 44) exp_list : exp_list ',' expression
   ]
   ### Extension Params
   nparams = {
-    'ASTBuilderLazy' => 2, 
+    'ASTBuilder' => 2, 
   }
   ### Term to Int
   t2i = {
@@ -138,96 +138,96 @@ class PL0d < Depager::LALR::Basis
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 14, nil, 15, 16, 6, nil, nil, nil, nil, nil, nil, 7, nil, 8, nil, 9, nil, 10, 11, 12, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 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, 6, nil, nil, nil, nil, nil, nil, 7, nil, 8, nil, 9, nil, 10, 11, 12, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 20, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 20, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 35, nil, nil, nil, nil, nil, nil, nil, nil, 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, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 39, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 41, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 42, 43, 44, 45, 46, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 49, 50, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 52, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, 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, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, 55, 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, 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, 57, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 58, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, 62, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 61, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 6, nil, nil, nil, nil, nil, nil, 7, nil, 8, nil, 9, nil, 10, 11, 12, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, 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, nil, 25, 27, 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, nil, 25, 27, 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, nil, 25, 27, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 49, 50, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 25, 27, 74, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, 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, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 6, nil, nil, nil, nil, nil, nil, 7, nil, 8, nil, 9, nil, 10, 11, 12, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 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, nil, nil, nil, nil, 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, 81, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 35, 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, 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, 6, nil, nil, nil, nil, nil, nil, 7, nil, 8, nil, 9, nil, 10, 11, 12, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 49, 50, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 49, 50, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 85, 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, 47, 48, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 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, 88, 59, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 25, 27, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, nil, nil, ], 
+    [ nil, nil, nil, nil, 90, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 47, 48, nil, nil, ], 
     [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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 = [
@@ -236,9 +236,7 @@ class PL0d < Depager::LALR::Basis
     nil, 
     -14, 
     -1, 
-    -4, 
-    nil, 
-    nil, 
+    -2, 
     nil, 
     -14, 
     nil, 
@@ -246,33 +244,35 @@ class PL0d < Depager::LALR::Basis
     nil, 
     nil, 
     -21, 
-    -2, 
+    -4, 
     nil, 
-    -39, 
     nil, 
-    -38, 
     nil, 
     nil, 
+    -22, 
+    nil, 
     nil, 
-    -33, 
-    -37, 
     nil, 
+    -33, 
     nil, 
+    -37, 
+    -38, 
+    -39, 
     nil, 
     nil, 
-    -9, 
-    -22, 
     -19, 
     -20, 
-    -12, 
     nil, 
+    -9, 
     nil, 
     nil, 
-    -24, 
+    -12, 
+    nil, 
+    -15, 
     nil, 
     -14, 
+    -24, 
     nil, 
-    -34, 
     nil, 
     nil, 
     nil, 
@@ -282,47 +282,47 @@ class PL0d < Depager::LALR::Basis
     nil, 
     nil, 
     nil, 
+    -34, 
     nil, 
-    -15, 
     nil, 
+    -14, 
     -5, 
     nil, 
     nil, 
     -6, 
     nil, 
-    -14, 
-    nil, 
-    -40, 
     nil, 
-    -43, 
-    -18, 
-    -42, 
-    -35, 
-    -36, 
-    -31, 
+    -16, 
+    -14, 
+    -17, 
+    -25, 
     -26, 
-    -32, 
     -27, 
     -28, 
     -29, 
-    -25, 
     -30, 
-    -11, 
+    -31, 
+    -32, 
+    -35, 
+    -36, 
+    -40, 
+    nil, 
+    -43, 
+    -42, 
+    -18, 
     -10, 
-    -14, 
-    -16, 
+    -11, 
     -13, 
-    -17, 
-    nil, 
     -3, 
-    -41, 
     nil, 
     -23, 
-    -3, 
+    -41, 
     nil, 
-    -44, 
     nil, 
+    -3, 
+    -44, 
     -7, 
+    nil, 
     -8, 
   ]
   defred_after_shift_table = [
@@ -331,20 +331,20 @@ class PL0d < Depager::LALR::Basis
     nil, 
     nil, 
     -1, 
-    -4, 
+    -2, 
     nil, 
     nil, 
     nil, 
     nil, 
     nil, 
     nil, 
+    -21, 
+    -4, 
     nil, 
     nil, 
-    -21, 
-    -2, 
     nil, 
-    -39, 
     nil, 
+    -22, 
     nil, 
     nil, 
     nil, 
@@ -352,11 +352,13 @@ class PL0d < Depager::LALR::Basis
     nil, 
     -37, 
     nil, 
+    -39, 
+    nil, 
+    nil, 
     nil, 
     nil, 
     nil, 
     -9, 
-    -22, 
     nil, 
     nil, 
     -12, 
@@ -379,45 +381,43 @@ class PL0d < Depager::LALR::Basis
     nil, 
     nil, 
     nil, 
-    nil, 
     -5, 
     nil, 
     nil, 
     -6, 
     nil, 
     nil, 
+    -16, 
     nil, 
-    -40, 
+    -17, 
     nil, 
     nil, 
-    -18, 
-    -42, 
-    -35, 
-    -36, 
     nil, 
     nil, 
     nil, 
     nil, 
     nil, 
     nil, 
+    -35, 
+    -36, 
+    -40, 
     nil, 
     nil, 
-    -11, 
+    -42, 
+    -18, 
     -10, 
-    nil, 
-    -16, 
+    -11, 
     -13, 
-    -17, 
-    nil, 
     -3, 
-    -41, 
     nil, 
     -23, 
-    -3, 
+    -41, 
     nil, 
     nil, 
+    -3, 
     nil, 
     -7, 
+    nil, 
     -8, 
   ]
   ### Nonterm to Int
@@ -459,34 +459,34 @@ class PL0d < Depager::LALR::Basis
    [ 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, 5, 13, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 18, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 21, nil, 19, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 21, nil, 28, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 29, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 30, nil, nil, 22, 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, 31, nil, 32, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, 34, nil, nil, nil, nil, nil, 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, 22, 24, 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, 37, nil, nil, 23, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 40, nil, nil, 22, 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, 51, 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, 53, nil, nil, 22, 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, ], 
@@ -494,30 +494,31 @@ class PL0d < Depager::LALR::Basis
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 63, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, 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, 64, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 65, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 66, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 67, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 68, nil, nil, 22, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 69, nil, nil, 22, 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, 71, 24, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 72, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 73, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 76, nil, nil, 22, 24, 75, ], 
    [ 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, ], 
    [ 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, 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, 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, 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, 84, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
@@ -534,547 +535,1558 @@ class PL0d < Depager::LALR::Basis
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, 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, 87, 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, 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, 89, nil, nil, 22, 24, nil, ], 
    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, 91, 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, ], 
   ]
 
-  Tables = [ reduce_table, nparams, action_table,
-             defred_table, defred_after_shift_table, goto_table,
-             t2i, i2t, nt2i, i2nt ]
 
-  def self.createDecoratedParser
-    D4PL0d::ASTBuilderLazy.new(PL0d.new())
+  alias orig_error error
+  def error
+    orig_error
+    warn "current state: #{StateInfo[@stack.last]}"
   end
 
-  ### Inner Code
+  ### States
+  StateInfo = [ 
+<<'----------',
+I000 = 
+  (  0) $start : _ program
 
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
-          when /\A\s+/
-            @oldline = @line; @line = $'
-                 
 
-        
-          when /\A:=/
-            @oldline = @line; @line = $'
-                 yield _Token(:COLOEQ, $&)    
+  $default       reduce using rule 3 (opt_decl_list)  [after shift]
 
-        
-          when /\A<>/
-            @oldline = @line; @line = $'
-                 yield _Token(:NOTEQ, $&)     
+----------
+  
+<<'----------',
+I001 = 
+  (  0) $start : program _
 
-        
-          when /\A<=/
-            @oldline = @line; @line = $'
-                 yield _Token(:LE, $&)        
 
-        
-          when /\A>=/
-            @oldline = @line; @line = $'
-                 yield _Token(:GE, $&)        
 
-        
-          when /\A=/
-            @oldline = @line; @line = $'
-                 yield _Token(:EQ, $&)        
+  $end            accept
 
-        
-          when /\A</
-            @oldline = @line; @line = $'
-                 yield _Token(:LT, $&)        
+----------
+  
+<<'----------',
+I002 = 
+  (  1) program : block _ '.'
 
-        
-          when /\A>/
-            @oldline = @line; @line = $'
-                 yield _Token(:GT, $&)        
+  '.'             shift, and goto to state 4
 
-        
-          when /\Aconst/
-            @oldline = @line; @line = $'
-                 yield _Token(:CONST, $&)     
 
-        
-          when /\Avar/
-            @oldline = @line; @line = $'
-                 yield _Token(:VAR, $&)       
+----------
+  
+<<'----------',
+I003 = 
+  (  2) block : opt_decl_list _ statement
+  (  4) opt_decl_list : opt_decl_list _ decl
+
+  CONST           shift, and goto to state 14
+  VAR             shift, and goto to state 15
+  FUNCTION        shift, and goto to state 16
+  IDENT           shift, and goto to state 6
+  BEGINN          shift, and goto to state 7
+  IF              shift, and goto to state 8
+  WHILE           shift, and goto to state 9
+  RETURN          shift, and goto to state 10
+  WRITE           shift, and goto to state 11
+  WRITELN         shift, and goto to state 12
+
+  $default       reduce using rule 14 (statement) 
+
+----------
+  
+<<'----------',
+I004 = 
+  (  1) program : block '.' _
 
-        
-          when /\Afunction/
-            @oldline = @line; @line = $'
-                 yield _Token(:FUNCTION, $&)  
 
-        
-          when /\Abegin/
-            @oldline = @line; @line = $'
-                 yield _Token(:BEGINN, $&)    
+  $default       reduce using rule 1 (program)  [after shift]
 
-        
-          when /\Aend/
-            @oldline = @line; @line = $'
-                 yield _Token(:END, $&)       
+----------
+  
+<<'----------',
+I005 = 
+  (  2) block : opt_decl_list statement _
 
-        
-          when /\Aif/
-            @oldline = @line; @line = $'
-                 yield _Token(:IF, $&)        
 
-        
-          when /\Athen/
-            @oldline = @line; @line = $'
-                 yield _Token(:THEN, $&)      
+  $default       reduce using rule 2 (block)  [after shift]
 
-        
-          when /\Awhile/
-            @oldline = @line; @line = $'
-                 yield _Token(:WHILE, $&)     
+----------
+  
+<<'----------',
+I006 = 
+  ( 15) statement : IDENT _ COLOEQ expression
 
-        
-          when /\Ado/
-            @oldline = @line; @line = $'
-                 yield _Token(:DO, $&)        
+  COLOEQ          shift, and goto to state 17
 
-        
-          when /\Areturn/
-            @oldline = @line; @line = $'
-                 yield _Token(:RETURN, $&)    
 
-        
-          when /\Awriteln/
-            @oldline = @line; @line = $'
-                 yield _Token(:WRITELN, $&)   
+----------
+  
+<<'----------',
+I007 = 
+  ( 16) statement : BEGINN _ statement opt_state_list END
 
-        
-          when /\Awrite/
-            @oldline = @line; @line = $'
-                 yield _Token(:WRITE, $&)     
+  IDENT           shift, and goto to state 6
+  BEGINN          shift, and goto to state 7
+  IF              shift, and goto to state 8
+  WHILE           shift, and goto to state 9
+  RETURN          shift, and goto to state 10
+  WRITE           shift, and goto to state 11
+  WRITELN         shift, and goto to state 12
 
-        
-          when /\Aodd/
-            @oldline = @line; @line = $'
-                 yield _Token(:ODD, $&)       
+  $default       reduce using rule 14 (statement) 
 
-        
-          when /\A[a-zA-Z][a-zA-Z0-9_]*/
-            @oldline = @line; @line = $'
-                 yield _Token(:IDENT, $&)       
+----------
+  
+<<'----------',
+I008 = 
+  ( 17) statement : IF _ condition THEN statement
 
-        
-          when /\A[0-9]+/
-            @oldline = @line; @line = $'
-                 yield _Token(:NUMBER, $&.to_i) 
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  ODD             shift, and goto to state 20
+  '-'             shift, and goto to state 23
 
-        
-          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
+----------
+  
+<<'----------',
+I009 = 
+  ( 18) statement : WHILE _ condition DO statement
 
-### Outer Code
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  ODD             shift, and goto to state 20
+  '-'             shift, and goto to state 23
 
-  class Node
-    attr_accessor :lineno
-    attr_accessor :value
-    
-          def initialize
-                 @value = nil 
 
-          end
-        
-    def to_ary
-      [self]
-    end
-    def self.[] lineno, *args
-      self.new lineno, *args
-    end
-    def accept v
-    end
-  end
-  require 'forwardable'
-  class NodeList < Node
-    attr_accessor :lineno
-    extend Forwardable
-    _methods = Array.instance_methods -
-      Object.instance_methods -
-      ['push', 'concat', 'to_ary', 'map']
-    def_delegators(:@lst, *_methods)
-    def initialize(lineno, lst=[])
-      @lineno = lineno
-      @lst = lst.to_a
-    end
-    
-        def value
-          @lst.map{|i| "i.value"} 
-        end
-      
-    def push(i)   @lst.push i; self;          end
-    def concat(i) @lst.concat i; self;        end
-    def map(&b)   @lst.map(&b);               end
-    def to_ary()  @lst;                       end
-    def accept(v)
-      @lst.each{|i| i.accept(v) }
-    end
-  end
+----------
+  
+<<'----------',
+I010 = 
+  ( 19) statement : RETURN _ expression
 
-  class Node_program < Node
-    attr_accessor :block
-    attr_accessor 
-    def initialize lineno, block
-      super()
-      @lineno = lineno
-          @lineno = lineno
-    @block = block
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
 
-    end
-    
-      def _block_ v
-        @block.accept(v); @block
-      end
-    
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_program(self)
-      self
-    end
+
+----------
+  
+<<'----------',
+I011 = 
+  ( 20) statement : WRITE _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I012 = 
+  ( 21) statement : WRITELN _
+
+
+  $default       reduce using rule 21 (statement)  [after shift]
+
+----------
+  
+<<'----------',
+I013 = 
+  (  4) opt_decl_list : opt_decl_list decl _
+
+
+  $default       reduce using rule 4 (opt_decl_list)  [after shift]
+
+----------
+  
+<<'----------',
+I014 = 
+  (  5) decl : CONST _ const_init_list ';'
+
+  IDENT           shift, and goto to state 33
+
+
+----------
+  
+<<'----------',
+I015 = 
+  (  6) decl : VAR _ ident_list ';'
+
+  IDENT           shift, and goto to state 35
+
+
+----------
+  
+<<'----------',
+I016 = 
+  (  7) decl : FUNCTION _ IDENT '(' ')' block ';'
+  (  8) decl : FUNCTION _ IDENT '(' ident_list ')' block ';'
+
+  IDENT           shift, and goto to state 36
+
+
+----------
+  
+<<'----------',
+I017 = 
+  ( 15) statement : IDENT COLOEQ _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I018 = 
+  ( 16) statement : BEGINN statement _ opt_state_list END
+
+
+  $default       reduce using rule 22 (opt_state_list)  [after shift]
+
+----------
+  
+<<'----------',
+I019 = 
+  ( 17) statement : IF condition _ THEN statement
+
+  THEN            shift, and goto to state 39
+
+
+----------
+  
+<<'----------',
+I020 = 
+  ( 24) condition : ODD _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I021 = 
+  ( 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 41
+  NOTEQ           shift, and goto to state 42
+  LT              shift, and goto to state 43
+  GT              shift, and goto to state 44
+  LE              shift, and goto to state 45
+  GE              shift, and goto to state 46
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+
+----------
+  
+<<'----------',
+I022 = 
+  ( 33) expression : term _
+  ( 35) term : term _ '*' factor
+  ( 36) term : term _ '/' factor
+
+  '*'             shift, and goto to state 49
+  '/'             shift, and goto to state 50
+
+  $default       reduce using rule 33 (expression) 
+
+----------
+  
+<<'----------',
+I023 = 
+  ( 34) expression : '-' _ term
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+
+
+----------
+  
+<<'----------',
+I024 = 
+  ( 37) term : factor _
+
+
+  $default       reduce using rule 37 (term)  [after shift]
+
+----------
+  
+<<'----------',
+I025 = 
+  ( 38) factor : IDENT _
+  ( 40) factor : IDENT _ '(' ')'
+  ( 41) factor : IDENT _ '(' exp_list ')'
+
+  '('             shift, and goto to state 52
+
+  $default       reduce using rule 38 (factor) 
+
+----------
+  
+<<'----------',
+I026 = 
+  ( 39) factor : NUMBER _
+
+
+  $default       reduce using rule 39 (factor)  [after shift]
+
+----------
+  
+<<'----------',
+I027 = 
+  ( 42) factor : '(' _ expression ')'
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I028 = 
+  ( 18) statement : WHILE condition _ DO statement
+
+  DO              shift, and goto to state 54
+
+
+----------
+  
+<<'----------',
+I029 = 
+  ( 19) statement : RETURN expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 19 (statement) 
+
+----------
+  
+<<'----------',
+I030 = 
+  ( 20) statement : WRITE expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 20 (statement) 
+
+----------
+  
+<<'----------',
+I031 = 
+  (  5) decl : CONST const_init_list _ ';'
+  ( 10) const_init_list : const_init_list _ ',' const_init
+
+  ';'             shift, and goto to state 55
+  ','             shift, and goto to state 56
+
+
+----------
+  
+<<'----------',
+I032 = 
+  (  9) const_init_list : const_init _
+
+
+  $default       reduce using rule 9 (const_init_list)  [after shift]
+
+----------
+  
+<<'----------',
+I033 = 
+  ( 11) const_init : IDENT _ EQ NUMBER
+
+  EQ              shift, and goto to state 57
+
+
+----------
+  
+<<'----------',
+I034 = 
+  (  6) decl : VAR ident_list _ ';'
+  ( 13) ident_list : ident_list _ ',' IDENT
+
+  ';'             shift, and goto to state 58
+  ','             shift, and goto to state 59
+
+
+----------
+  
+<<'----------',
+I035 = 
+  ( 12) ident_list : IDENT _
+
+
+  $default       reduce using rule 12 (ident_list)  [after shift]
+
+----------
+  
+<<'----------',
+I036 = 
+  (  7) decl : FUNCTION IDENT _ '(' ')' block ';'
+  (  8) decl : FUNCTION IDENT _ '(' ident_list ')' block ';'
+
+  '('             shift, and goto to state 60
+
+
+----------
+  
+<<'----------',
+I037 = 
+  ( 15) statement : IDENT COLOEQ expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 15 (statement) 
+
+----------
+  
+<<'----------',
+I038 = 
+  ( 16) statement : BEGINN statement opt_state_list _ END
+  ( 23) opt_state_list : opt_state_list _ ';' statement
+
+  ';'             shift, and goto to state 62
+  END             shift, and goto to state 61
+
+
+----------
+  
+<<'----------',
+I039 = 
+  ( 17) statement : IF condition THEN _ statement
+
+  IDENT           shift, and goto to state 6
+  BEGINN          shift, and goto to state 7
+  IF              shift, and goto to state 8
+  WHILE           shift, and goto to state 9
+  RETURN          shift, and goto to state 10
+  WRITE           shift, and goto to state 11
+  WRITELN         shift, and goto to state 12
+
+  $default       reduce using rule 14 (statement) 
+
+----------
+  
+<<'----------',
+I040 = 
+  ( 24) condition : ODD expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 24 (condition) 
+
+----------
+  
+<<'----------',
+I041 = 
+  ( 25) condition : expression EQ _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I042 = 
+  ( 26) condition : expression NOTEQ _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I043 = 
+  ( 27) condition : expression LT _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I044 = 
+  ( 28) condition : expression GT _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I045 = 
+  ( 29) condition : expression LE _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I046 = 
+  ( 30) condition : expression GE _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I047 = 
+  ( 31) expression : expression '+' _ term
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+
+
+----------
+  
+<<'----------',
+I048 = 
+  ( 32) expression : expression '-' _ term
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+
+
+----------
+  
+<<'----------',
+I049 = 
+  ( 35) term : term '*' _ factor
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+
+
+----------
+  
+<<'----------',
+I050 = 
+  ( 36) term : term '/' _ factor
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+
+
+----------
+  
+<<'----------',
+I051 = 
+  ( 34) expression : '-' term _
+  ( 35) term : term _ '*' factor
+  ( 36) term : term _ '/' factor
+
+  '*'             shift, and goto to state 49
+  '/'             shift, and goto to state 50
+
+  $default       reduce using rule 34 (expression) 
+
+----------
+  
+<<'----------',
+I052 = 
+  ( 40) factor : IDENT '(' _ ')'
+  ( 41) factor : IDENT '(' _ exp_list ')'
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  ')'             shift, and goto to state 74
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I053 = 
+  ( 42) factor : '(' expression _ ')'
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  ')'             shift, and goto to state 77
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+
+----------
+  
+<<'----------',
+I054 = 
+  ( 18) statement : WHILE condition DO _ statement
+
+  IDENT           shift, and goto to state 6
+  BEGINN          shift, and goto to state 7
+  IF              shift, and goto to state 8
+  WHILE           shift, and goto to state 9
+  RETURN          shift, and goto to state 10
+  WRITE           shift, and goto to state 11
+  WRITELN         shift, and goto to state 12
+
+  $default       reduce using rule 14 (statement) 
+
+----------
+  
+<<'----------',
+I055 = 
+  (  5) decl : CONST const_init_list ';' _
+
+
+  $default       reduce using rule 5 (decl)  [after shift]
+
+----------
+  
+<<'----------',
+I056 = 
+  ( 10) const_init_list : const_init_list ',' _ const_init
+
+  IDENT           shift, and goto to state 33
+
+
+----------
+  
+<<'----------',
+I057 = 
+  ( 11) const_init : IDENT EQ _ NUMBER
+
+  NUMBER          shift, and goto to state 80
+
+
+----------
+  
+<<'----------',
+I058 = 
+  (  6) decl : VAR ident_list ';' _
+
+
+  $default       reduce using rule 6 (decl)  [after shift]
+
+----------
+  
+<<'----------',
+I059 = 
+  ( 13) ident_list : ident_list ',' _ IDENT
+
+  IDENT           shift, and goto to state 81
+
+
+----------
+  
+<<'----------',
+I060 = 
+  (  7) decl : FUNCTION IDENT '(' _ ')' block ';'
+  (  8) decl : FUNCTION IDENT '(' _ ident_list ')' block ';'
+
+  IDENT           shift, and goto to state 35
+  ')'             shift, and goto to state 82
+
+
+----------
+  
+<<'----------',
+I061 = 
+  ( 16) statement : BEGINN statement opt_state_list END _
+
+
+  $default       reduce using rule 16 (statement)  [after shift]
+
+----------
+  
+<<'----------',
+I062 = 
+  ( 23) opt_state_list : opt_state_list ';' _ statement
+
+  IDENT           shift, and goto to state 6
+  BEGINN          shift, and goto to state 7
+  IF              shift, and goto to state 8
+  WHILE           shift, and goto to state 9
+  RETURN          shift, and goto to state 10
+  WRITE           shift, and goto to state 11
+  WRITELN         shift, and goto to state 12
+
+  $default       reduce using rule 14 (statement) 
+
+----------
+  
+<<'----------',
+I063 = 
+  ( 17) statement : IF condition THEN statement _
+
+
+  $default       reduce using rule 17 (statement)  [after shift]
+
+----------
+  
+<<'----------',
+I064 = 
+  ( 25) condition : expression EQ expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 25 (condition) 
+
+----------
+  
+<<'----------',
+I065 = 
+  ( 26) condition : expression NOTEQ expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 26 (condition) 
+
+----------
+  
+<<'----------',
+I066 = 
+  ( 27) condition : expression LT expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 27 (condition) 
+
+----------
+  
+<<'----------',
+I067 = 
+  ( 28) condition : expression GT expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 28 (condition) 
+
+----------
+  
+<<'----------',
+I068 = 
+  ( 29) condition : expression LE expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 29 (condition) 
+
+----------
+  
+<<'----------',
+I069 = 
+  ( 30) condition : expression GE expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 30 (condition) 
+
+----------
+  
+<<'----------',
+I070 = 
+  ( 31) expression : expression '+' term _
+  ( 35) term : term _ '*' factor
+  ( 36) term : term _ '/' factor
+
+  '*'             shift, and goto to state 49
+  '/'             shift, and goto to state 50
+
+  $default       reduce using rule 31 (expression) 
+
+----------
+  
+<<'----------',
+I071 = 
+  ( 32) expression : expression '-' term _
+  ( 35) term : term _ '*' factor
+  ( 36) term : term _ '/' factor
+
+  '*'             shift, and goto to state 49
+  '/'             shift, and goto to state 50
+
+  $default       reduce using rule 32 (expression) 
+
+----------
+  
+<<'----------',
+I072 = 
+  ( 35) term : term '*' factor _
+
+
+  $default       reduce using rule 35 (term)  [after shift]
+
+----------
+  
+<<'----------',
+I073 = 
+  ( 36) term : term '/' factor _
+
+
+  $default       reduce using rule 36 (term)  [after shift]
+
+----------
+  
+<<'----------',
+I074 = 
+  ( 40) factor : IDENT '(' ')' _
+
+
+  $default       reduce using rule 40 (factor)  [after shift]
+
+----------
+  
+<<'----------',
+I075 = 
+  ( 41) factor : IDENT '(' exp_list _ ')'
+  ( 44) exp_list : exp_list _ ',' expression
+
+  ')'             shift, and goto to state 85
+  ','             shift, and goto to state 86
+
+
+----------
+  
+<<'----------',
+I076 = 
+  ( 43) exp_list : expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 43 (exp_list) 
+
+----------
+  
+<<'----------',
+I077 = 
+  ( 42) factor : '(' expression ')' _
+
+
+  $default       reduce using rule 42 (factor)  [after shift]
+
+----------
+  
+<<'----------',
+I078 = 
+  ( 18) statement : WHILE condition DO statement _
+
+
+  $default       reduce using rule 18 (statement)  [after shift]
+
+----------
+  
+<<'----------',
+I079 = 
+  ( 10) const_init_list : const_init_list ',' const_init _
+
+
+  $default       reduce using rule 10 (const_init_list)  [after shift]
+
+----------
+  
+<<'----------',
+I080 = 
+  ( 11) const_init : IDENT EQ NUMBER _
+
+
+  $default       reduce using rule 11 (const_init)  [after shift]
+
+----------
+  
+<<'----------',
+I081 = 
+  ( 13) ident_list : ident_list ',' IDENT _
+
+
+  $default       reduce using rule 13 (ident_list)  [after shift]
+
+----------
+  
+<<'----------',
+I082 = 
+  (  7) decl : FUNCTION IDENT '(' ')' _ block ';'
+
+
+  $default       reduce using rule 3 (opt_decl_list)  [after shift]
+
+----------
+  
+<<'----------',
+I083 = 
+  (  8) decl : FUNCTION IDENT '(' ident_list _ ')' block ';'
+  ( 13) ident_list : ident_list _ ',' IDENT
+
+  ')'             shift, and goto to state 88
+  ','             shift, and goto to state 59
+
+
+----------
+  
+<<'----------',
+I084 = 
+  ( 23) opt_state_list : opt_state_list ';' statement _
+
+
+  $default       reduce using rule 23 (opt_state_list)  [after shift]
+
+----------
+  
+<<'----------',
+I085 = 
+  ( 41) factor : IDENT '(' exp_list ')' _
+
+
+  $default       reduce using rule 41 (factor)  [after shift]
+
+----------
+  
+<<'----------',
+I086 = 
+  ( 44) exp_list : exp_list ',' _ expression
+
+  IDENT           shift, and goto to state 25
+  '('             shift, and goto to state 27
+  NUMBER          shift, and goto to state 26
+  '-'             shift, and goto to state 23
+
+
+----------
+  
+<<'----------',
+I087 = 
+  (  7) decl : FUNCTION IDENT '(' ')' block _ ';'
+
+  ';'             shift, and goto to state 90
+
+
+----------
+  
+<<'----------',
+I088 = 
+  (  8) decl : FUNCTION IDENT '(' ident_list ')' _ block ';'
+
+
+  $default       reduce using rule 3 (opt_decl_list)  [after shift]
+
+----------
+  
+<<'----------',
+I089 = 
+  ( 44) exp_list : exp_list ',' expression _
+  ( 31) expression : expression _ '+' term
+  ( 32) expression : expression _ '-' term
+
+  '+'             shift, and goto to state 47
+  '-'             shift, and goto to state 48
+
+  $default       reduce using rule 44 (exp_list) 
+
+----------
+  
+<<'----------',
+I090 = 
+  (  7) decl : FUNCTION IDENT '(' ')' block ';' _
+
+
+  $default       reduce using rule 7 (decl)  [after shift]
+
+----------
+  
+<<'----------',
+I091 = 
+  (  8) decl : FUNCTION IDENT '(' ident_list ')' block _ ';'
+
+  ';'             shift, and goto to state 92
+
+
+----------
+  
+<<'----------',
+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
+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 _decls_ v
-        @decls.accept(v); @decls
-      end
-    
-      def _stmt_ v
-        @stmt.accept(v); @stmt
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_block(self)
-      self
-    end
+    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
+class Node_var_decl < Node
+  attr_accessor :idents
+  attr_accessor :idents
+  def initialize lineno, idents
+    super()
+    @lineno = lineno
+        @lineno = lineno
     @idents = idents
 
-    end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_var_decl(self)
-      self
-    end
+    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
+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 _const_inits_ v
-        @const_inits.accept(v); @const_inits
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_const_decl(self)
-      self
-    end
+    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
+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
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_const_init(self)
-      self
-    end
+    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
+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
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_func_decl(self)
-      self
-    end
+    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
+class Node_nop_stmt < Node
+  attr_accessor :nop
+  attr_accessor :nop
+  def initialize lineno, nop
+    super()
+    @lineno = lineno
+        @lineno = lineno
     @nop = nop
 
-    end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_nop_stmt(self)
-      self
-    end
+    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
+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 _expr_ v
-        @expr.accept(v); @expr
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_assign_stmt(self)
-      self
-    end
+    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
+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 _stmt_ v
-        @stmt.accept(v); @stmt
-      end
-    
-      def _stmts_ v
-        @stmts.accept(v); @stmts
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_begin_stmt(self)
-      self
-    end
+    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
+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 _cond_ v
-        @cond.accept(v); @cond
-      end
-    
-      def _stmt_ v
-        @stmt.accept(v); @stmt
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_if_stmt(self)
-      self
-    end
+    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
+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 _cond_ v
-        @cond.accept(v); @cond
-      end
-    
-      def _stmt_ v
-        @stmt.accept(v); @stmt
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_while_stmt(self)
-      self
-    end
+    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
+class Node_return_stmt < Node
+  attr_accessor :expr
+  attr_accessor 
+  def initialize lineno, expr
+    super()
+    @lineno = lineno
+        @lineno = lineno
     @expr = expr
 
-    end
-    
-      def _expr_ v
-        @expr.accept(v); @expr
-      end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_return_stmt(self)
-      self
-    end
+    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
+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
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_apply(self)
-      self
-    end
+    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
+class Node_refv < Node
+  attr_accessor :ident
+  attr_accessor :ident
+  def initialize lineno, ident
+    super()
+    @lineno = lineno
+        @lineno = lineno
     @ident = ident
 
-    end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_refv(self)
-      self
-    end
+    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
+class Node_number < Node
+  attr_accessor :n
+  attr_accessor :n
+  def initialize lineno, n
+    super()
+    @lineno = lineno
+        @lineno = lineno
     @n = n
 
-    end
+  end
+  def accept v
+    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
     
-    def accept v
-      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-      v.visit_Node_number(self)
-      self
-    end
+    v.visit_Node_number(self)
+    self
   end
+end
 
           class Visitor
             def visit node
               node.accept(self)
             end
           
-module_eval <<-'.,.,1187541087803.,.,', 'pl0d/pl0ds.dr', 38
+module_eval <<-'.,.,120998293030813.,.,', 'pl0d/pl0ds.dr', 38
 
     STEntry = Struct.new(:kind, :narg, :value)
     def initialize
@@ -1106,33 +2118,39 @@ module_eval <<-'.,.,1187541087803.,.,', 'pl0d/pl0ds.dr', 38
       warn e.pretty_inspect
     end
 
-.,.,1187541087803.,.,
+.,.,120998293030813.,.,
 
-module_eval <<-'.,.,118754108738825.,.,', 'pl0d/pl0ds.dr', 69
-  def visit_Node_program node
+module_eval <<-'.,.,12099829305176.,.,', 'pl0d/pl0ds.dr', 69
+def visit_Node_program node
 
     visit(node.block)
 
-  end
-
-.,.,118754108738825.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,12099829305176.,.,
       
-module_eval <<-'.,.,118754108725030.,.,', 'pl0d/pl0ds.dr', 73
-  def visit_Node_block node
+module_eval <<-'.,.,120998293049390.,.,', 'pl0d/pl0ds.dr', 73
+def visit_Node_block node
 
     @env.push({})
     visit(node.decls)
     visit(node.stmt)
     @env.pop
 
-  end
-
-.,.,118754108725030.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293049390.,.,
       
-module_eval <<-'.,.,118754108720128.,.,', 'pl0d/pl0ds.dr', 80
-  def visit_Node_var_decl node
+module_eval <<-'.,.,120998293012688.,.,', 'pl0d/pl0ds.dr', 80
+def visit_Node_var_decl node
 
-    node.idents.each do |ident|
+    node.idents.to_a.each do |ident|
       if @env.last[ident.value]
         warn "'#{ident.value}' already exist."; exit
       else
@@ -1140,21 +2158,27 @@ module_eval <<-'.,.,118754108720128.,.,', 'pl0d/pl0ds.dr', 80
       end
     end
 
-  end
-
-.,.,118754108720128.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293012688.,.,
       
-module_eval <<-'.,.,118754108746872.,.,', 'pl0d/pl0ds.dr', 90
-  def visit_Node_const_decl node
+module_eval <<-'.,.,120998293023822.,.,', 'pl0d/pl0ds.dr', 90
+def visit_Node_const_decl node
 
     visit(node.const_inits)
 
-  end
-
-.,.,118754108746872.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293023822.,.,
       
-module_eval <<-'.,.,118754108745112.,.,', 'pl0d/pl0ds.dr', 94
-  def visit_Node_const_init node
+module_eval <<-'.,.,120998293050532.,.,', 'pl0d/pl0ds.dr', 94
+def visit_Node_const_init node
 
     if @env.last[node.ident.value]
       warn "'#{node.ident.value}' already exist."; exit
@@ -1162,12 +2186,15 @@ module_eval <<-'.,.,118754108745112.,.,', 'pl0d/pl0ds.dr', 94
       @env.last[node.ident.value] = STEntry.new(:CONST, 0, node.number.value)
     end
 
-  end
-
-.,.,118754108745112.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293050532.,.,
       
-module_eval <<-'.,.,118754108729522.,.,', 'pl0d/pl0ds.dr', 102
-  def visit_Node_func_decl node
+module_eval <<-'.,.,12099829308926.,.,', 'pl0d/pl0ds.dr', 102
+def visit_Node_func_decl node
 
     if @env[0][node.ident.value]
       warn "'#{node.ident.value}' already exist."; exit
@@ -1176,9 +2203,9 @@ module_eval <<-'.,.,118754108729522.,.,', 'pl0d/pl0ds.dr', 102
       value = 0
       n = @env.size
       @env.push({})
-      value = callcc do |c|
-        @env.last['return'] = STEntry.new(:VAR, 0, c)
-        node.params.each_with_index do |a, x|
+      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)
@@ -1188,20 +2215,26 @@ module_eval <<-'.,.,118754108729522.,.,', 'pl0d/pl0ds.dr', 102
     end
     @env.last[node.ident.value] = STEntry.new(:FUNC, node.params.size, body)
 
-  end
-
-.,.,118754108729522.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,12099829308926.,.,
       
-module_eval <<-'.,.,118754108753309.,.,', 'pl0d/pl0ds.dr', 123
-  def visit_Node_nop_stmt node
-
+module_eval <<-'.,.,12099829302167.,.,', 'pl0d/pl0ds.dr', 123
+def visit_Node_nop_stmt node
 
-  end
 
-.,.,118754108753309.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,12099829302167.,.,
       
-module_eval <<-'.,.,11875410875543.,.,', 'pl0d/pl0ds.dr', 126
-  def visit_Node_assign_stmt node
+module_eval <<-'.,.,120998293024002.,.,', 'pl0d/pl0ds.dr', 126
+def visit_Node_assign_stmt node
 
     if ent = lookup(node.ident.value)
       unless ent.kind == :VAR
@@ -1213,58 +2246,73 @@ module_eval <<-'.,.,11875410875543.,.,', 'pl0d/pl0ds.dr', 126
       warn "'#{node.ident.value}' not found."; exit
     end
 
-  end
-
-.,.,11875410875543.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293024002.,.,
       
-module_eval <<-'.,.,118754108710613.,.,', 'pl0d/pl0ds.dr', 138
-  def visit_Node_begin_stmt node
+module_eval <<-'.,.,120998293048902.,.,', 'pl0d/pl0ds.dr', 138
+def visit_Node_begin_stmt node
 
     visit(node.stmt)
     visit(node.stmts)
 
-  end
-
-.,.,118754108710613.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293048902.,.,
       
-module_eval <<-'.,.,118754108716282.,.,', 'pl0d/pl0ds.dr', 143
-  def visit_Node_if_stmt node
+module_eval <<-'.,.,120998293040187.,.,', 'pl0d/pl0ds.dr', 143
+def visit_Node_if_stmt node
 
     if visit(node.cond).value != 0
       visit(node.stmt)
     end
 
-  end
-
-.,.,118754108716282.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293040187.,.,
       
-module_eval <<-'.,.,118754108724669.,.,', 'pl0d/pl0ds.dr', 149
-  def visit_Node_while_stmt node
+module_eval <<-'.,.,120998293044323.,.,', 'pl0d/pl0ds.dr', 149
+def visit_Node_while_stmt node
 
     while visit(node.cond).value != 0
       visit(node.stmt)
     end
 
-  end
-
-.,.,118754108724669.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293044323.,.,
       
-module_eval <<-'.,.,11875410872421.,.,', 'pl0d/pl0ds.dr', 155
-  def visit_Node_return_stmt node
+module_eval <<-'.,.,120998293053102.,.,', '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
-    ent.value.call(visit(node.expr).value)
-
-  end
+    throw :return, visit(node.expr).value
 
-.,.,11875410872421.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293053102.,.,
       
-module_eval <<-'.,.,118754108733309.,.,', 'pl0d/pl0ds.dr', 164
-  def visit_Node_apply node
+module_eval <<-'.,.,120998293056491.,.,', 'pl0d/pl0ds.dr', 164
+def visit_Node_apply node
 
     ent = nil
     @env.reverse_each{|s| break if ent = s[node.ident.value] }
@@ -1275,7 +2323,7 @@ module_eval <<-'.,.,118754108733309.,.,', 'pl0d/pl0ds.dr', 164
       warn "'#{node.ident.value}' not func."; exit
     end
 
-    args = node.args.map{|a| visit(a).value } 
+    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}"
@@ -1284,12 +2332,15 @@ module_eval <<-'.,.,118754108733309.,.,', 'pl0d/pl0ds.dr', 164
     node.value = ent.value.call(args)
     # warn "#{'  '*(@env.size-2)}|-> #{node.value} @ #{node.ident.value}"
 
-  end
-
-.,.,118754108733309.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293056491.,.,
       
-module_eval <<-'.,.,118754108711179.,.,', 'pl0d/pl0ds.dr', 184
-  def visit_Node_refv node
+module_eval <<-'.,.,120998293060345.,.,', 'pl0d/pl0ds.dr', 184
+def visit_Node_refv node
 
     unless ent = lookup(node.ident.value)
       warn "'#{node.ident.value}' not found."; exit
@@ -1300,24 +2351,30 @@ module_eval <<-'.,.,118754108711179.,.,', 'pl0d/pl0ds.dr', 184
       warn "'#{node.ident.value}' not var."; exit
     end
 
-  end
-
-.,.,118754108711179.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293060345.,.,
       
-module_eval <<-'.,.,118754108737080.,.,', 'pl0d/pl0ds.dr', 195
-  def visit_Node_number node
+module_eval <<-'.,.,120998293043567.,.,', 'pl0d/pl0ds.dr', 195
+def visit_Node_number node
 
     node.value = node.n.value
 
-  end
-
-.,.,118754108737080.,.,
+      rescue
+        warn "raise at src:#{node.lineno}/#{node.class.name}"
+        raise
+    
+end
+.,.,120998293043567.,.,
       
           end
         
-class D4PL0d::ASTBuilderLazy < Depager::LALR::Action #:nodoc:all
+class D4PL0d::ASTBuilder < Depager::LALR::Action #:nodoc:all
   include Depager::DecoratorUtils
-  
+  []
   on_reduce = [
     nil,
               :_ast_0,
@@ -1368,325 +2425,281 @@ class D4PL0d::ASTBuilderLazy < Depager::LALR::Action #:nodoc:all
   ]
   Tables = [on_reduce]
   def initialize inside
-    super inside, 'ASTBuilderLazy'
+    super inside, 'ASTBuilder'
     @on_reduce, = self.class::Tables
     init_parser
   end
   
 
-module_eval <<-'.,.,118754108727698.,.,', 'pl0d/pl0ds.dr', 202
-  def _ast_0 val
+module_eval <<-'.,.,120998293028968.,.,', 'pl0d/pl0ds.dr', 202
+def _ast_0 val
 Node_program.new(val[0].lineno, val[0])
-  end
-
-.,.,118754108727698.,.,
+end
+.,.,120998293028968.,.,
       
-module_eval <<-'.,.,118754108715107.,.,', 'pl0d/pl0ds.dr', 207
-  def _ast_1 val
+module_eval <<-'.,.,12099829301180.,.,', 'pl0d/pl0ds.dr', 207
+def _ast_1 val
 Node_block.new(val[0].lineno, val[0], val[1])
-  end
-
-.,.,118754108715107.,.,
+end
+.,.,12099829301180.,.,
       
-module_eval <<-'.,.,11875410875615.,.,', 'pl0d/pl0ds.dr', 211
-  def _ast_2 val
+module_eval <<-'.,.,120998293015897.,.,', 'pl0d/pl0ds.dr', 211
+def _ast_2 val
 NodeList.new(basis.file.lineno, [])
-  end
-
-.,.,11875410875615.,.,
+end
+.,.,120998293015897.,.,
       
-module_eval <<-'.,.,118754108757005.,.,', 'pl0d/pl0ds.dr', 213
-  def _ast_3 val
+module_eval <<-'.,.,120998293049270.,.,', 'pl0d/pl0ds.dr', 213
+def _ast_3 val
 val[0].push(val[1])
-  end
-
-.,.,118754108757005.,.,
+end
+.,.,120998293049270.,.,
       
-module_eval <<-'.,.,118754108729694.,.,', 'pl0d/pl0ds.dr', 218
-  def _ast_4 val
+module_eval <<-'.,.,12099829307013.,.,', 'pl0d/pl0ds.dr', 218
+def _ast_4 val
 Node_const_decl.new(val[0].lineno, val[1])
-  end
-
-.,.,118754108729694.,.,
+end
+.,.,12099829307013.,.,
       
-module_eval <<-'.,.,118754108716594.,.,', 'pl0d/pl0ds.dr', 220
-  def _ast_5 val
+module_eval <<-'.,.,120998293039291.,.,', 'pl0d/pl0ds.dr', 220
+def _ast_5 val
 Node_var_decl.new(val[0].lineno, val[1])
-  end
-
-.,.,118754108716594.,.,
+end
+.,.,120998293039291.,.,
       
-module_eval <<-'.,.,118754108748120.,.,', 'pl0d/pl0ds.dr', 222
-  def _ast_6 val
+module_eval <<-'.,.,120998293039568.,.,', '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
-
-.,.,118754108748120.,.,
+end
+.,.,120998293039568.,.,
       
-module_eval <<-'.,.,11875410872297.,.,', 'pl0d/pl0ds.dr', 224
-  def _ast_7 val
+module_eval <<-'.,.,120998293035123.,.,', 'pl0d/pl0ds.dr', 224
+def _ast_7 val
 Node_func_decl.new(val[0].lineno, val[1], val[3], val[5])
-  end
-
-.,.,11875410872297.,.,
+end
+.,.,120998293035123.,.,
       
-module_eval <<-'.,.,118754108745043.,.,', 'pl0d/pl0ds.dr', 229
-  def _ast_8 val
+module_eval <<-'.,.,120998293017209.,.,', 'pl0d/pl0ds.dr', 229
+def _ast_8 val
 NodeList.new(val[0].lineno, [val[0]])
-  end
-
-.,.,118754108745043.,.,
+end
+.,.,120998293017209.,.,
       
-module_eval <<-'.,.,118754108726175.,.,', 'pl0d/pl0ds.dr', 231
-  def _ast_9 val
+module_eval <<-'.,.,120998293036515.,.,', 'pl0d/pl0ds.dr', 231
+def _ast_9 val
 val[0].push(val[2])
-  end
-
-.,.,118754108726175.,.,
+end
+.,.,120998293036515.,.,
       
-module_eval <<-'.,.,118754108751885.,.,', 'pl0d/pl0ds.dr', 236
-  def _ast_10 val
+module_eval <<-'.,.,120998293030836.,.,', 'pl0d/pl0ds.dr', 236
+def _ast_10 val
 Node_const_init.new(val[0].lineno, val[0], val[2])
-  end
-
-.,.,118754108751885.,.,
+end
+.,.,120998293030836.,.,
       
-module_eval <<-'.,.,118754108731413.,.,', 'pl0d/pl0ds.dr', 241
-  def _ast_11 val
+module_eval <<-'.,.,120998293047982.,.,', 'pl0d/pl0ds.dr', 241
+def _ast_11 val
 NodeList.new(val[0].lineno, [val[0]])
-  end
-
-.,.,118754108731413.,.,
+end
+.,.,120998293047982.,.,
       
-module_eval <<-'.,.,118754108762803.,.,', 'pl0d/pl0ds.dr', 243
-  def _ast_12 val
+module_eval <<-'.,.,120998293022999.,.,', 'pl0d/pl0ds.dr', 243
+def _ast_12 val
 val[0].push(val[2])
-  end
-
-.,.,118754108762803.,.,
+end
+.,.,120998293022999.,.,
       
-module_eval <<-'.,.,118754108760561.,.,', 'pl0d/pl0ds.dr', 247
-  def _ast_13 val
+module_eval <<-'.,.,12099829302646.,.,', 'pl0d/pl0ds.dr', 247
+def _ast_13 val
 Node_nop_stmt.new(basis.file.lineno, NodeList.new(basis.file.lineno, []))
-  end
-
-.,.,118754108760561.,.,
+end
+.,.,12099829302646.,.,
       
-module_eval <<-'.,.,11875410873504.,.,', 'pl0d/pl0ds.dr', 249
-  def _ast_14 val
+module_eval <<-'.,.,12099829305298.,.,', 'pl0d/pl0ds.dr', 249
+def _ast_14 val
 Node_assign_stmt.new(val[0].lineno, val[0], val[2])
-  end
-
-.,.,11875410873504.,.,
+end
+.,.,12099829305298.,.,
       
-module_eval <<-'.,.,118754108713027.,.,', 'pl0d/pl0ds.dr', 251
-  def _ast_15 val
+module_eval <<-'.,.,120998293020763.,.,', 'pl0d/pl0ds.dr', 251
+def _ast_15 val
 Node_begin_stmt.new(val[0].lineno, val[1], val[2])
-  end
-
-.,.,118754108713027.,.,
+end
+.,.,120998293020763.,.,
       
-module_eval <<-'.,.,118754108719666.,.,', 'pl0d/pl0ds.dr', 253
-  def _ast_16 val
+module_eval <<-'.,.,12099829309981.,.,', 'pl0d/pl0ds.dr', 253
+def _ast_16 val
 Node_if_stmt.new(val[0].lineno, val[1], val[3])
-  end
-
-.,.,118754108719666.,.,
+end
+.,.,12099829309981.,.,
       
-module_eval <<-'.,.,118754108739704.,.,', 'pl0d/pl0ds.dr', 255
-  def _ast_17 val
+module_eval <<-'.,.,120998293050109.,.,', 'pl0d/pl0ds.dr', 255
+def _ast_17 val
 Node_while_stmt.new(val[0].lineno, val[1], val[3])
-  end
-
-.,.,118754108739704.,.,
+end
+.,.,120998293050109.,.,
       
-module_eval <<-'.,.,11875410875794.,.,', 'pl0d/pl0ds.dr', 257
-  def _ast_18 val
+module_eval <<-'.,.,120998293013512.,.,', 'pl0d/pl0ds.dr', 257
+def _ast_18 val
 Node_return_stmt.new(val[0].lineno, val[1])
-  end
-
-.,.,11875410875794.,.,
+end
+.,.,120998293013512.,.,
       
-module_eval <<-'.,.,118754108744227.,.,', 'pl0d/pl0ds.dr', 259
-  def _ast_19 val
+module_eval <<-'.,.,120998293056086.,.,', '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
-
-.,.,118754108744227.,.,
+end
+.,.,120998293056086.,.,
       
-module_eval <<-'.,.,118754108763948.,.,', 'pl0d/pl0ds.dr', 261
-  def _ast_20 val
+module_eval <<-'.,.,120998293043974.,.,', 'pl0d/pl0ds.dr', 261
+def _ast_20 val
 Node_apply.new(val[0].lineno, Depager::Token['writeln'], NodeList.new(basis.file.lineno, []))
-  end
-
-.,.,118754108763948.,.,
+end
+.,.,120998293043974.,.,
       
-module_eval <<-'.,.,118754108740172.,.,', 'pl0d/pl0ds.dr', 265
-  def _ast_21 val
+module_eval <<-'.,.,120998293061866.,.,', 'pl0d/pl0ds.dr', 265
+def _ast_21 val
 NodeList.new(basis.file.lineno, [])
-  end
-
-.,.,118754108740172.,.,
+end
+.,.,120998293061866.,.,
       
-module_eval <<-'.,.,118754108721677.,.,', 'pl0d/pl0ds.dr', 267
-  def _ast_22 val
+module_eval <<-'.,.,120998293056171.,.,', 'pl0d/pl0ds.dr', 267
+def _ast_22 val
 val[0].push(val[2])
-  end
-
-.,.,118754108721677.,.,
+end
+.,.,120998293056171.,.,
       
-module_eval <<-'.,.,118754108735202.,.,', 'pl0d/pl0ds.dr', 272
-  def _ast_23 val
+module_eval <<-'.,.,120998293047443.,.,', '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
-
-.,.,118754108735202.,.,
+end
+.,.,120998293047443.,.,
       
-module_eval <<-'.,.,118754108736535.,.,', 'pl0d/pl0ds.dr', 274
-  def _ast_24 val
+module_eval <<-'.,.,12099829302565.,.,', '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
-
-.,.,118754108736535.,.,
+end
+.,.,12099829302565.,.,
       
-module_eval <<-'.,.,1187541087179.,.,', 'pl0d/pl0ds.dr', 276
-  def _ast_25 val
+module_eval <<-'.,.,12099829301068.,.,', '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
-
-.,.,1187541087179.,.,
+end
+.,.,12099829301068.,.,
       
-module_eval <<-'.,.,118754108713463.,.,', 'pl0d/pl0ds.dr', 278
-  def _ast_26 val
+module_eval <<-'.,.,120998293039924.,.,', '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
-
-.,.,118754108713463.,.,
+end
+.,.,120998293039924.,.,
       
-module_eval <<-'.,.,118754108751700.,.,', 'pl0d/pl0ds.dr', 280
-  def _ast_27 val
+module_eval <<-'.,.,120998293038866.,.,', '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
-
-.,.,118754108751700.,.,
+end
+.,.,120998293038866.,.,
       
-module_eval <<-'.,.,118754108731039.,.,', 'pl0d/pl0ds.dr', 282
-  def _ast_28 val
+module_eval <<-'.,.,120998293023733.,.,', '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
-
-.,.,118754108731039.,.,
+end
+.,.,120998293023733.,.,
       
-module_eval <<-'.,.,118754108740869.,.,', 'pl0d/pl0ds.dr', 284
-  def _ast_29 val
+module_eval <<-'.,.,120998293029020.,.,', '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
-
-.,.,118754108740869.,.,
+end
+.,.,120998293029020.,.,
       
-module_eval <<-'.,.,118754108740678.,.,', 'pl0d/pl0ds.dr', 289
-  def _ast_30 val
+module_eval <<-'.,.,12099829302639.,.,', '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
-
-.,.,118754108740678.,.,
+end
+.,.,12099829302639.,.,
       
-module_eval <<-'.,.,118754108737097.,.,', 'pl0d/pl0ds.dr', 291
-  def _ast_31 val
+module_eval <<-'.,.,120998293052461.,.,', '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
-
-.,.,118754108737097.,.,
+end
+.,.,120998293052461.,.,
       
-module_eval <<-'.,.,118754108740133.,.,', 'pl0d/pl0ds.dr', 293
-  def _ast_32 val
+module_eval <<-'.,.,120998293012310.,.,', 'pl0d/pl0ds.dr', 293
+def _ast_32 val
 val[0]
-  end
-
-.,.,118754108740133.,.,
+end
+.,.,120998293012310.,.,
       
-module_eval <<-'.,.,118754108740085.,.,', 'pl0d/pl0ds.dr', 295
-  def _ast_33 val
+module_eval <<-'.,.,12099829309705.,.,', '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
-
-.,.,118754108740085.,.,
+end
+.,.,12099829309705.,.,
       
-module_eval <<-'.,.,118754108751372.,.,', 'pl0d/pl0ds.dr', 300
-  def _ast_34 val
+module_eval <<-'.,.,120998293050902.,.,', '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
-
-.,.,118754108751372.,.,
+end
+.,.,120998293050902.,.,
       
-module_eval <<-'.,.,118754108734661.,.,', 'pl0d/pl0ds.dr', 302
-  def _ast_35 val
+module_eval <<-'.,.,120998293030588.,.,', '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
-
-.,.,118754108734661.,.,
+end
+.,.,120998293030588.,.,
       
-module_eval <<-'.,.,118754108749541.,.,', 'pl0d/pl0ds.dr', 304
-  def _ast_36 val
+module_eval <<-'.,.,120998293042608.,.,', 'pl0d/pl0ds.dr', 304
+def _ast_36 val
 val[0]
-  end
-
-.,.,118754108749541.,.,
+end
+.,.,120998293042608.,.,
       
-module_eval <<-'.,.,118754108723290.,.,', 'pl0d/pl0ds.dr', 309
-  def _ast_37 val
+module_eval <<-'.,.,120998293040243.,.,', 'pl0d/pl0ds.dr', 309
+def _ast_37 val
 Node_refv.new(val[0].lineno, val[0])
-  end
-
-.,.,118754108723290.,.,
+end
+.,.,120998293040243.,.,
       
-module_eval <<-'.,.,118754108715292.,.,', 'pl0d/pl0ds.dr', 311
-  def _ast_38 val
+module_eval <<-'.,.,120998293051665.,.,', 'pl0d/pl0ds.dr', 311
+def _ast_38 val
 Node_number.new(val[0].lineno, val[0])
-  end
-
-.,.,118754108715292.,.,
+end
+.,.,120998293051665.,.,
       
-module_eval <<-'.,.,118754108760976.,.,', 'pl0d/pl0ds.dr', 313
-  def _ast_39 val
+module_eval <<-'.,.,120998293051059.,.,', 'pl0d/pl0ds.dr', 313
+def _ast_39 val
 Node_apply.new(val[0].lineno, val[0], NodeList.new(basis.file.lineno, []))
-  end
-
-.,.,118754108760976.,.,
+end
+.,.,120998293051059.,.,
       
-module_eval <<-'.,.,118754108756282.,.,', 'pl0d/pl0ds.dr', 315
-  def _ast_40 val
+module_eval <<-'.,.,120998293058561.,.,', 'pl0d/pl0ds.dr', 315
+def _ast_40 val
 Node_apply.new(val[0].lineno, val[0], val[2])
-  end
-
-.,.,118754108756282.,.,
+end
+.,.,120998293058561.,.,
       
-module_eval <<-'.,.,11875410872866.,.,', 'pl0d/pl0ds.dr', 317
-  def _ast_41 val
+module_eval <<-'.,.,120998293057987.,.,', 'pl0d/pl0ds.dr', 317
+def _ast_41 val
 val[1]
-  end
-
-.,.,11875410872866.,.,
+end
+.,.,120998293057987.,.,
       
-module_eval <<-'.,.,118754108711379.,.,', 'pl0d/pl0ds.dr', 322
-  def _ast_42 val
+module_eval <<-'.,.,120998293032376.,.,', 'pl0d/pl0ds.dr', 322
+def _ast_42 val
 NodeList.new(val[0].lineno, [val[0]])
-  end
-
-.,.,118754108711379.,.,
+end
+.,.,120998293032376.,.,
       
-module_eval <<-'.,.,118754108743061.,.,', 'pl0d/pl0ds.dr', 324
-  def _ast_43 val
+module_eval <<-'.,.,120998293064182.,.,', 'pl0d/pl0ds.dr', 324
+def _ast_43 val
 val[0].push(val[2])
-  end
-
-.,.,118754108743061.,.,
+end
+.,.,120998293064182.,.,
       
 end
       
 
 def createDecoratedPL0d
-  D4PL0d::ASTBuilderLazy.new(PL0d.new())
+  D4PL0d::ASTBuilder.new(PL0d.new())
 end
 
 ### main