p := {i, j | i>j;
p1 := {i, j | i><};
p2 := {i, j i<j};
p3 := {i,,j |};
p4 := ifl;
p5 toto {};
p:= { i, j | i>j>k };
{ i, j, j | i>j>k};
**********



m:= ((1,-1,4), (1, 0, -2), (-1, -1,-1));
m2:= ((1,-1,4), (1, 0), (-1, -1,-1));
p:={|};
im := image (p,m);
print im;