% Null % % module % foreach test14_foreach(_i,_j,_p2,_upvals):-_upvals=[],((((le(_i,_j)),(_x = _i,call_cl(_p2,[_x]),{X1 = _i+1.0},call(test14_foreach(X1,_j,_p2),_upvals));true))). % apply test14_apply(_p,_l,_upvals):-_upvals=[],(apply2(_p,_l)). % range test14_range(_i,_j,_x,_upvals):-_upvals=[],(range(_i,_j,_x)). % debug test14_debug(_e,_upvals):-_upvals=[],(writeln_(_e)). % main test14(X):-_debug = clos([],test14_debug),_range = clos([],test14_range),writeln_(_l),_zz = _F,creq("logic",_logic),writeln_(_logic),_apply = clos([],test14_apply),_foreach = clos([],test14_foreach),get_(_logic,"forall",T1),_forall = T1,call_cl(_forall,[_range,'[|]'(1.0,'[|]'(3.0,'[|]'(_x,[]))),_debug,'[|]'(_x,[])]),writeln_(_x).