data;

set Rn := 1 2 3 4;

param A default 0 :=
1,1,1	3
1,1,2	2
1,2,2	2
2,1,1	2
2,2,2	1
3,1,1	3
3,1,2	1
3,2,2	2
4,1,1	1
4,2,2	3 ;

param B default 0 :
	1	2	3	4 :=
1	.	.	1	3
2	1	.	3	2
3	.	.	2	3
4	.	.	2	3 ;
param c :=
1	-6
2	-2
3	-1
4	-3 ;

.