% Null
%
% module
% size
test_size(_l,_n,_upvals):-_upvals=[],((if_(_l = [],(_n = 0.0),(_l = [_|_tail],call(test_size(_tail,_j),_upvals),{_n = _j+1.0})))).
% p
test_p(_x,_y,_upvals):-_upvals=[],(_x = _y).
% q
test_q(_x,_upvals):-_upvals=[],(_x = 2.0).
% delay
test_delay(_x,_p,_upvals):-_upvals=[],(freeze(_x,_p)).
% main
test(X):-creq("string",_string),_delay = clos([],test_delay),call_cl(_delay,[_x,_fn]),writeln_(_s),get_(_string,"size",T2),_T1 = T2,call_cl(_T1,[_s,_n]),new(T3),set_(T3,0.0,1.0,T4),_t = T4,get_(_t,0.0,T5),writeln_(T5),_q = clos([],test_q),_p = clos([],test_p),creq("list2",_list),get_(_list,"size",T7),_T6 = T7,call_cl(_T6,[_l,2.0]),_size = clos([],test_size),get_(_list,"size",T9),_T8 = T9,call_cl(_T8,[_l,2.0]),writeln_(_l),false.