Up05

walk_children :: proc(v: ^ast.Visitor, node: ^ast.Node) {
    using ast
	walk_expr_list :: proc(v: ^ast.Visitor, list: []^ast.Expr)      { for x in list  { walk(v, x)    } }
	walk_stmt_list :: proc(v: ^ast.Visitor, list: []^ast.Stmt)      { for x in list  { walk(v, x)    } }
	walk_attr_list :: proc(v: ^ast.Visitor, list: []^ast.Attribute) { for x in list  { walk(v, x)    } }
    trod      :: proc(v: ^ast.Visitor, node: ^ast.Node)        { if node != nil { walk(v, node) } }

	v := v;   if v == nil || node == nil { return }
	// if v = v->visit(node); v == nil { return } <-- FUCK THIS!
    

Up05

CLEAR SCREEN;

PROMPT "--------------------------------------";
PROMPT "              TRINAMA Š.              ";
PROMPT "--------------------------------------";

-- turi būti atvirkščia tvarka nuo sukūrimo... :)))
DROP TABLE Ėjimas;
DROP TABLE Figūra;
DROP TABLE Patikra;