test('test_progs/fact.pl','factorial', polygrd, 
     [Xs/[1],Ys/[2]], factorial(Xs,Ys) ).
     
test('testpgs/append.pl','append', polygrd, 
     [Xs/[1],Ys/[2],Zs/[4]], append(Xs,Ys,Zs) ).

