param  p:=  8;

param c:
    1  2  3  4  5  6  7  8 :=
1   0 -3  2 -4  1  3 -1 -2
2   0  0 -3  2  4 -1 -5  2
3   0  0  0  1 -4  5  1 -3
4   0  0  0  0 -3  1  2 -3
5   0  0  0  0  0  3 -1 -1
6   0  0  0  0  0  0 -1  4
7   0  0  0  0  0  0  0  5
8   0  0  0  0  0  0  0  0
  ;