% Null % % temp % size temp_size(_t,_i,_upvals):-_upvals=[_get],(_T890=0.0,writeln_(_get),true). % get temp_get(_t,_o,_o2,_upvals):-_upvals=[],(get_(_t,_o,_o2)). % main temp(X):-_get = clos([],temp_get),_size = clos([_get],temp_size),new(T891),set_(T891,0.0,1.0,T892),set_(T892,1.0,2.0,T893),set_(T893,2.0,3.0,T894),set_(T894,3.0,4.0,T895),_t = T895,call_cl(_size,[_t,_n]),writeln_(_n),has_(_l,_x).