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

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