% Null
% F Functor
% module
% debug
test2_debug(_x,_upvals):-_upvals=[],(writeln_(_x)).
% p
test2_p(_t,_upvals):-_upvals=[_next],((((call_cl(_next,[_t,_t1,_k,_v])),(writeln_('[|]'(_k,'[|]'(_v,[]))),call(test2_p(_t1),_upvals));true))).
% next
test2_next(_t,_t2,_k,_v,_upvals):-_upvals=[_remove,_get],(call_cl(_get,[_t,_k,_v]),call_cl(_remove,[_t,_k,_v,_t2])).
% remove
test2_remove(_t,_o,_o2,_t2,_upvals):-_upvals=[],(del_(_t,_o,_o2,_t2)).
% get
test2_get(_t,_o,_o2,_upvals):-_upvals=[],(get_(_t,_o,_o2)).
% main
test2(X):-_y = "x",_x = 2.0,calc(""+1.0,T1),_s = T1,writeln_(_s),writeln_(1.0),_f = fc_F(1.0),creq("logic",_logic),creq("table",_table),writeln_(_table),_get = clos([],test2_get),_remove = clos([],test2_remove),_next = clos([_remove,_get],test2_next),_p = clos([_next],test2_p),new(T2),set_(T2,1.0,2.0,T4),set_(T4,2.0,3.0,T5),set_(T5,3.0,4.0,T3),call_cl(_p,[T3]),_debug = clos([],test2_debug).