% module
:-style_check(-singleton),style_check(-no_effect),ensure_loaded("core3").
% new
xpce_new(_x,_y,_upvals):-_upvals=[],(new(_x,_y)).
% main
xpce(X):-_new=clos([],xpce_new).