P :=
4 5
1  -1   0   0   1
1   0  -1  -1   1
1   0   1   0   0
1   1   1   2  -2

;
assert((card P) = { 3 });
