Set n / n1*n80 /;
Set s / a1 /;

yupp('n1','n1','a1')=0;

Parameter fcost(m,n,s) /
$ondelim
   n1      n14     a1             90
   n14     n1      a1             77
   n1      n79     a1             64
   n79     n1      a1             77
   n1      n3      a1             56
   n3      n1      a1             71
   n1      n18     a1             95
   n18     n1      a1             93
   n1      n9      a1             57
   n9      n1      a1            100
   n1      n39     a1             51
   n39     n1      a1             81
   n1      n42     a1             77
   n42     n1      a1             70
   n1      n75     a1             93
   n75     n1      a1             76
   n1      n32     a1             61
   n32     n1      a1             50
   n1      n8      a1             57
   n8      n1      a1             85
   n1      n50     a1             95
   n50     n1      a1             79
   n1      n28     a1             91
   n28     n1      a1             90
   n1      n35     a1             84
   n35     n1      a1             67
   n1      n23     a1             86
   n23     n1      a1             90
   n1      n26     a1             90
   n26     n1      a1             93
   n1      n15     a1             90
   n15     n1      a1             73
   n1      n7      a1             89
   n7      n1      a1             86
   n1      n76     a1             90
   n76     n1      a1             66
   n1      n5      a1             68
   n5      n1      a1             94
   n1      n6      a1             64
   n6      n1      a1             54
   n1      n16     a1             98
   n16     n1      a1             81
   n1      n66     a1             70
   n66     n1      a1             84
   n1      n4      a1             76
   n4      n1      a1             85
   n1      n27     a1             98
   n27     n1      a1             87
   n1      n10     a1            100
   n10     n1      a1             61
   n1      n29     a1             64
   n29     n1      a1             52
   n1      n80     a1             52
   n80     n1      a1             94
   n1      n53     a1             64
   n53     n1      a1             84
   n1      n30     a1             94
   n30     n1      a1             56
   n1      n58     a1             57
   n58     n1      a1             62
   n1      n22     a1             57
   n22     n1      a1             68
   n1      n41     a1             82
   n41     n1      a1             50
   n2      n1      a1             52
   n1      n2      a1             86
   n2      n41     a1             98
   n41     n2      a1             93
   n2      n22     a1             62
   n22     n2      a1             93
   n2      n48     a1             64
   n48     n2      a1             86
   n2      n10     a1             74
   n10     n2      a1             92
   n2      n4      a1             78
   n4      n2      a1             60
   n2      n3      a1             62
   n3      n2      a1             92
   n2      n13     a1             81
   n13     n2      a1             92
   n2      n12     a1             82
   n12     n2      a1             94
   n3      n4      a1             88
   n4      n3      a1            100
   n3      n62     a1             52
   n62     n3      a1             56
   n3      n5      a1             74
   n5      n3      a1             54
   n3      n19     a1             74
   n19     n3      a1             50
   n3      n9      a1             90
   n9      n3      a1             60
   n3      n18     a1             63
   n18     n3      a1             96
   n3      n79     a1             76
   n79     n3      a1             64
   n3      n14     a1             75
   n14     n3      a1             64
   n3      n64     a1             95
   n64     n3      a1             84
   n3      n34     a1             85
   n34     n3      a1             64
   n3      n17     a1             83
   n17     n3      a1             80
   n3      n51     a1             76
   n51     n3      a1             68
   n3      n12     a1             83
   n12     n3      a1             53
   n3      n43     a1             54
   n43     n3      a1             79
   n3      n40     a1             55
   n40     n3      a1             90
   n3      n13     a1             60
   n13     n3      a1             79
   n4      n10     a1             77
   n10     n4      a1             93
   n4      n27     a1             74
   n27     n4      a1             59
   n4      n66     a1             92
   n66     n4      a1             92
   n4      n16     a1             83
   n16     n4      a1             86
   n4      n33     a1             96
   n33     n4      a1             61
   n4      n44     a1             89
   n44     n4      a1             85
   n4      n55     a1             99
   n55     n4      a1             72
   n4      n63     a1             70
   n63     n4      a1             65
   n4      n6      a1             78
   n6      n4      a1             93
   n4      n72     a1             85
   n72     n4      a1             94
   n4      n69     a1             55
   n69     n4      a1             75
   n4      n59     a1             98
   n59     n4      a1             76
   n4      n5      a1             75
   n5      n4      a1             62
   n4      n62     a1             82
   n62     n4      a1             59
   n5      n76     a1             98
   n76     n5      a1             81
   n5      n7      a1             72
   n7      n5      a1             52
   n5      n62     a1            100
   n62     n5      a1             62
   n5      n59     a1             53
   n59     n5      a1             94
   n5      n6      a1             98
   n6      n5      a1             95
   n6      n63     a1             95
   n63     n6      a1             54
   n6      n55     a1             97
   n55     n6      a1             53
   n6      n44     a1             70
   n44     n6      a1             53
   n6      n46     a1             54
   n46     n6      a1             50
   n6      n16     a1             86
   n16     n6      a1             55
   n6      n59     a1             99
   n59     n6      a1             76
   n6      n69     a1             71
   n69     n6      a1             71
   n6      n72     a1             89
   n72     n6      a1             73
   n7      n76     a1             94
   n76     n7      a1             71
   n7      n15     a1             75
   n15     n7      a1             68
   n7      n49     a1             71
   n49     n7      a1             99
   n7      n11     a1             54
   n11     n7      a1             85
   n7      n65     a1            100
   n65     n7      a1             76
   n7      n52     a1             93
   n52     n7      a1             73
   n7      n54     a1             88
   n54     n7      a1             66
   n7      n56     a1             85
   n56     n7      a1             90
   n7      n36     a1             61
   n36     n7      a1             58
   n7      n20     a1             97
   n20     n7      a1             70
   n7      n8      a1             65
   n8      n7      a1             55
   n8      n20     a1             90
   n20     n8      a1             74
   n8      n11     a1             85
   n11     n8      a1             62
   n8      n23     a1             97
   n23     n8      a1             86
   n8      n28     a1             94
   n28     n8      a1             78
   n8      n57     a1             68
   n57     n8      a1             83
   n8      n9      a1             79
   n9      n8      a1             64
   n8      n60     a1             88
   n60     n8      a1             86
   n8      n31     a1             89
   n31     n8      a1             99
   n8      n21     a1             72
   n21     n8      a1             52
   n9      n60     a1             80
   n60     n9      a1             91
   n9      n57     a1             93
   n57     n9      a1             79
   n9      n32     a1             76
   n32     n9      a1             78
   n9      n39     a1             80
   n39     n9      a1             51
   n9      n18     a1             70
   n18     n9      a1             56
   n10     n48     a1             90
   n48     n10     a1             73
   n10     n22     a1             88
   n22     n10     a1             59
   n10     n27     a1             54
   n27     n10     a1             62
   n11     n24     a1             93
   n24     n11     a1             86
   n11     n23     a1             76
   n23     n11     a1             91
   n11     n77     a1             98
   n77     n11     a1             66
   n11     n25     a1             70
   n25     n11     a1             93
   n11     n52     a1             93
   n52     n11     a1             97
   n11     n65     a1             92
   n65     n11     a1             65
   n11     n15     a1             94
   n15     n11     a1             72
   n11     n38     a1             62
   n38     n11     a1             57
   n12     n13     a1             99
   n13     n12     a1             63
   n12     n40     a1             70
   n40     n12     a1             90
   n12     n43     a1             59
   n43     n12     a1             61
   n12     n51     a1             54
   n51     n12     a1             54
   n12     n17     a1             94
   n17     n12     a1             93
   n13     n61     a1             83
   n61     n13     a1             99
   n14     n17     a1             95
   n17     n14     a1             87
   n14     n37     a1             63
   n37     n14     a1             58
   n14     n34     a1             50
   n34     n14     a1             54
   n14     n64     a1             80
   n64     n14     a1             65
   n14     n79     a1             82
   n79     n14     a1             84
   n15     n38     a1             51
   n38     n15     a1             96
   n15     n49     a1             85
   n49     n15     a1             81
   n16     n46     a1             83
   n46     n16     a1             89
   n16     n33     a1             89
   n33     n16     a1             93
   n17     n51     a1             71
   n51     n17     a1             52
   n17     n34     a1             59
   n34     n17     a1             58
   n17     n37     a1             75
   n37     n17     a1             60
   n19     n21     a1             74
   n21     n19     a1             70
   n19     n31     a1             59
   n31     n19     a1             61
   n20     n36     a1             69
   n36     n20     a1             50
   n20     n25     a1             81
   n25     n20     a1             80
   n20     n77     a1             79
   n77     n20     a1             99
   n21     n31     a1             71
   n31     n21     a1             74
   n22     n30     a1             86
   n30     n22     a1             70
   n22     n47     a1             95
   n47     n22     a1             83
   n22     n67     a1             63
   n67     n22     a1             88
   n22     n29     a1             74
   n29     n22     a1             76
   n22     n48     a1             85
   n48     n22     a1             50
   n23     n78     a1             61
   n78     n23     a1             68
   n23     n35     a1             99
   n35     n23     a1             73
   n23     n28     a1             92
   n28     n23     a1             59
   n23     n24     a1             50
   n24     n23     a1             74
   n23     n26     a1             93
   n26     n23     a1             92
   n24     n26     a1             82
   n26     n24     a1             82
   n25     n68     a1             63
   n68     n25     a1             63
   n25     n36     a1             76
   n36     n25     a1             99
   n25     n56     a1             83
   n56     n25     a1             69
   n25     n54     a1             56
   n54     n25     a1             53
   n25     n52     a1             67
   n52     n25     a1             69
   n25     n77     a1             83
   n77     n25     a1             94
   n28     n50     a1             56
   n50     n28     a1             90
   n28     n35     a1             80
   n35     n28     a1             62
   n29     n67     a1             69
   n67     n29     a1             91
   n29     n47     a1             71
   n47     n29     a1             84
   n29     n30     a1             94
   n30     n29     a1             63
   n29     n53     a1             68
   n53     n29     a1             89
   n29     n80     a1             96
   n80     n29     a1             72
   n30     n53     a1             90
   n53     n30     a1             53
   n30     n47     a1             72
   n47     n30     a1             81
   n30     n58     a1             83
   n58     n30     a1             67
   n32     n57     a1             73
   n57     n32     a1             88
   n32     n75     a1             76
   n75     n32     a1             98
   n32     n42     a1             70
   n42     n32     a1             55
   n32     n39     a1             97
   n39     n32     a1             88
   n33     n46     a1             73
   n46     n33     a1             75
   n33     n44     a1            100
   n44     n33     a1             69
   n34     n45     a1             63
   n45     n34     a1             81
   n34     n37     a1             90
   n37     n34     a1             89
   n34     n74     a1             96
   n74     n34     a1             80
   n34     n64     a1             89
   n64     n34     a1             62
   n35     n78     a1             62
   n78     n35     a1             68
   n36     n56     a1             70
   n56     n36     a1             68
   n36     n68     a1             52
   n68     n36     a1             94
   n37     n45     a1             87
   n45     n37     a1             72
   n39     n42     a1             80
   n42     n39     a1             92
   n40     n43     a1             93
   n43     n40     a1             88
   n40     n73     a1             94
   n73     n40     a1             50
   n40     n70     a1             60
   n70     n40     a1            100
   n42     n75     a1             57
   n75     n42     a1             61
   n44     n55     a1             71
   n55     n44     a1             67
   n45     n71     a1             60
   n71     n45     a1             73
   n52     n65     a1             67
   n65     n52     a1            100
   n52     n54     a1             86
   n54     n52     a1             59
   n55     n63     a1             74
   n63     n55     a1             94
   n59     n69     a1             80
   n69     n59     a1             88
   n61     n70     a1             86
   n70     n61     a1             77
   n61     n73     a1            100
   n73     n61     a1             70
   n69     n72     a1             98
   n72     n69     a1             76
   n70     n73     a1             88
   n73     n70     a1             58
$offdelim
/;

Parameter vcost(m,n,s) /
$ondelim
   n1      n14     a1              5
   n14     n1      a1              0
   n1      n79     a1              1
   n79     n1      a1              3
   n1      n3      a1              1
   n3      n1      a1              0
   n1      n18     a1              9
   n18     n1      a1              2
   n1      n9      a1              6
   n9      n1      a1             10
   n1      n39     a1              3
   n39     n1      a1              5
   n1      n42     a1              0
   n42     n1      a1              0
   n1      n75     a1              5
   n75     n1      a1              0
   n1      n32     a1              6
   n32     n1      a1              4
   n1      n8      a1              8
   n8      n1      a1              3
   n1      n50     a1             10
   n50     n1      a1              4
   n1      n28     a1              5
   n28     n1      a1              2
   n1      n35     a1              3
   n35     n1      a1             10
   n1      n23     a1              2
   n23     n1      a1              0
   n1      n26     a1              4
   n26     n1      a1              7
   n1      n15     a1             10
   n15     n1      a1              5
   n1      n7      a1              3
   n7      n1      a1              0
   n1      n76     a1              1
   n76     n1      a1              3
   n1      n5      a1             10
   n5      n1      a1              3
   n1      n6      a1              4
   n6      n1      a1              0
   n1      n16     a1              6
   n16     n1      a1              8
   n1      n66     a1              7
   n66     n1      a1             10
   n1      n4      a1              0
   n4      n1      a1              4
   n1      n27     a1              1
   n27     n1      a1              3
   n1      n10     a1              1
   n10     n1      a1              4
   n1      n29     a1              6
   n29     n1      a1              8
   n1      n80     a1              2
   n80     n1      a1              6
   n1      n53     a1              2
   n53     n1      a1             10
   n1      n30     a1              6
   n30     n1      a1              6
   n1      n58     a1              3
   n58     n1      a1              3
   n1      n22     a1              4
   n22     n1      a1              8
   n1      n41     a1             10
   n41     n1      a1              2
   n2      n1      a1              2
   n1      n2      a1              8
   n2      n41     a1              5
   n41     n2      a1              9
   n2      n22     a1              8
   n22     n2      a1              1
   n2      n48     a1              5
   n48     n2      a1              1
   n2      n10     a1              2
   n10     n2      a1              2
   n2      n4      a1             10
   n4      n2      a1              8
   n2      n3      a1              8
   n3      n2      a1              6
   n2      n13     a1              4
   n13     n2      a1             10
   n2      n12     a1              3
   n12     n2      a1              9
   n3      n4      a1             10
   n4      n3      a1              1
   n3      n62     a1              4
   n62     n3      a1              6
   n3      n5      a1             10
   n5      n3      a1              0
   n3      n19     a1              4
   n19     n3      a1              2
   n3      n9      a1             10
   n9      n3      a1              3
   n3      n18     a1              9
   n18     n3      a1              9
   n3      n79     a1              2
   n79     n3      a1              3
   n3      n14     a1              6
   n14     n3      a1              9
   n3      n64     a1             10
   n64     n3      a1              3
   n3      n34     a1              5
   n34     n3      a1              6
   n3      n17     a1              5
   n17     n3      a1              8
   n3      n51     a1              1
   n51     n3      a1              4
   n3      n12     a1              7
   n12     n3      a1              1
   n3      n43     a1              0
   n43     n3      a1              1
   n3      n40     a1             10
   n40     n3      a1              7
   n3      n13     a1              8
   n13     n3      a1              4
   n4      n10     a1             10
   n10     n4      a1              3
   n4      n27     a1              5
   n27     n4      a1              7
   n4      n66     a1             10
   n66     n4      a1              1
   n4      n16     a1              3
   n16     n4      a1              6
   n4      n33     a1              5
   n33     n4      a1              9
   n4      n44     a1              4
   n44     n4      a1              6
   n4      n55     a1             10
   n55     n4      a1              9
   n4      n63     a1              8
   n63     n4      a1              2
   n4      n6      a1              6
   n6      n4      a1              9
   n4      n72     a1              6
   n72     n4      a1              0
   n4      n69     a1              1
   n69     n4      a1             10
   n4      n59     a1              4
   n59     n4      a1              7
   n4      n5      a1              6
   n5      n4      a1              7
   n4      n62     a1              1
   n62     n4      a1              3
   n5      n76     a1              6
   n76     n5      a1              8
   n5      n7      a1              3
   n7      n5      a1              1
   n5      n62     a1              2
   n62     n5      a1              7
   n5      n59     a1              1
   n59     n5      a1              7
   n5      n6      a1              1
   n6      n5      a1              3
   n6      n63     a1              2
   n63     n6      a1              5
   n6      n55     a1              5
   n55     n6      a1              3
   n6      n44     a1              2
   n44     n6      a1              6
   n6      n46     a1              6
   n46     n6      a1              4
   n6      n16     a1              2
   n16     n6      a1              7
   n6      n59     a1              8
   n59     n6      a1              2
   n6      n69     a1              0
   n69     n6      a1              4
   n6      n72     a1              4
   n72     n6      a1              8
   n7      n76     a1              1
   n76     n7      a1              2
   n7      n15     a1              8
   n15     n7      a1              3
   n7      n49     a1              9
   n49     n7      a1              6
   n7      n11     a1              3
   n11     n7      a1              3
   n7      n65     a1              2
   n65     n7      a1              7
   n7      n52     a1              4
   n52     n7      a1              1
   n7      n54     a1              6
   n54     n7      a1             10
   n7      n56     a1              9
   n56     n7      a1              2
   n7      n36     a1              9
   n36     n7      a1              8
   n7      n20     a1              3
   n20     n7      a1              0
   n7      n8      a1              4
   n8      n7      a1             10
   n8      n20     a1              7
   n20     n8      a1             10
   n8      n11     a1              7
   n11     n8      a1              8
   n8      n23     a1              1
   n23     n8      a1              4
   n8      n28     a1              3
   n28     n8      a1              2
   n8      n57     a1              3
   n57     n8      a1              7
   n8      n9      a1              5
   n9      n8      a1              8
   n8      n60     a1              8
   n60     n8      a1              3
   n8      n31     a1              6
   n31     n8      a1              2
   n8      n21     a1              7
   n21     n8      a1              6
   n9      n60     a1              9
   n60     n9      a1             10
   n9      n57     a1              3
   n57     n9      a1              0
   n9      n32     a1              9
   n32     n9      a1             10
   n9      n39     a1              9
   n39     n9      a1              2
   n9      n18     a1              9
   n18     n9      a1              4
   n10     n48     a1              2
   n48     n10     a1              0
   n10     n22     a1             10
   n22     n10     a1              5
   n10     n27     a1              2
   n27     n10     a1              4
   n11     n24     a1              0
   n24     n11     a1              2
   n11     n23     a1              7
   n23     n11     a1              8
   n11     n77     a1              1
   n77     n11     a1              7
   n11     n25     a1              4
   n25     n11     a1             10
   n11     n52     a1              0
   n52     n11     a1              9
   n11     n65     a1              0
   n65     n11     a1              2
   n11     n15     a1              9
   n15     n11     a1              9
   n11     n38     a1              1
   n38     n11     a1              1
   n12     n13     a1              9
   n13     n12     a1              6
   n12     n40     a1              7
   n40     n12     a1             10
   n12     n43     a1              1
   n43     n12     a1              8
   n12     n51     a1              4
   n51     n12     a1              3
   n12     n17     a1              0
   n17     n12     a1             10
   n13     n61     a1             10
   n61     n13     a1              1
   n14     n17     a1              3
   n17     n14     a1              7
   n14     n37     a1              4
   n37     n14     a1              5
   n14     n34     a1              1
   n34     n14     a1              4
   n14     n64     a1              1
   n64     n14     a1              8
   n14     n79     a1              8
   n79     n14     a1              9
   n15     n38     a1              6
   n38     n15     a1              9
   n15     n49     a1              3
   n49     n15     a1              4
   n16     n46     a1              7
   n46     n16     a1              4
   n16     n33     a1              3
   n33     n16     a1              0
   n17     n51     a1              9
   n51     n17     a1             10
   n17     n34     a1              6
   n34     n17     a1              8
   n17     n37     a1              1
   n37     n17     a1              4
   n19     n21     a1              8
   n21     n19     a1              7
   n19     n31     a1              2
   n31     n19     a1              4
   n20     n36     a1              6
   n36     n20     a1              5
   n20     n25     a1              8
   n25     n20     a1              2
   n20     n77     a1              8
   n77     n20     a1              6
   n21     n31     a1              0
   n31     n21     a1              9
   n22     n30     a1              7
   n30     n22     a1              1
   n22     n47     a1              6
   n47     n22     a1              3
   n22     n67     a1              3
   n67     n22     a1              8
   n22     n29     a1              2
   n29     n22     a1              1
   n22     n48     a1             10
   n48     n22     a1              6
   n23     n78     a1              0
   n78     n23     a1              7
   n23     n35     a1              2
   n35     n23     a1              9
   n23     n28     a1              7
   n28     n23     a1              8
   n23     n24     a1              7
   n24     n23     a1              9
   n23     n26     a1              2
   n26     n23     a1              5
   n24     n26     a1              0
   n26     n24     a1              2
   n25     n68     a1              0
   n68     n25     a1              7
   n25     n36     a1              1
   n36     n25     a1             10
   n25     n56     a1              5
   n56     n25     a1             10
   n25     n54     a1             10
   n54     n25     a1              8
   n25     n52     a1              3
   n52     n25     a1              3
   n25     n77     a1              4
   n77     n25     a1              5
   n28     n50     a1              7
   n50     n28     a1              1
   n28     n35     a1              2
   n35     n28     a1              2
   n29     n67     a1              1
   n67     n29     a1              4
   n29     n47     a1              7
   n47     n29     a1              9
   n29     n30     a1              2
   n30     n29     a1              6
   n29     n53     a1             10
   n53     n29     a1              7
   n29     n80     a1              7
   n80     n29     a1              8
   n30     n53     a1              0
   n53     n30     a1              5
   n30     n47     a1              5
   n47     n30     a1              9
   n30     n58     a1              2
   n58     n30     a1              5
   n32     n57     a1             10
   n57     n32     a1              4
   n32     n75     a1              6
   n75     n32     a1              4
   n32     n42     a1              7
   n42     n32     a1              7
   n32     n39     a1              2
   n39     n32     a1              2
   n33     n46     a1              4
   n46     n33     a1             10
   n33     n44     a1              0
   n44     n33     a1              3
   n34     n45     a1              2
   n45     n34     a1              9
   n34     n37     a1              3
   n37     n34     a1              7
   n34     n74     a1              3
   n74     n34     a1              5
   n34     n64     a1              8
   n64     n34     a1              4
   n35     n78     a1              5
   n78     n35     a1              7
   n36     n56     a1              6
   n56     n36     a1              3
   n36     n68     a1              4
   n68     n36     a1              1
   n37     n45     a1              9
   n45     n37     a1             10
   n39     n42     a1             10
   n42     n39     a1              2
   n40     n43     a1              0
   n43     n40     a1             10
   n40     n73     a1              5
   n73     n40     a1              1
   n40     n70     a1              3
   n70     n40     a1              4
   n42     n75     a1              6
   n75     n42     a1              4
   n44     n55     a1             10
   n55     n44     a1              7
   n45     n71     a1              9
   n71     n45     a1              7
   n52     n65     a1              7
   n65     n52     a1              7
   n52     n54     a1              0
   n54     n52     a1              7
   n55     n63     a1              9
   n63     n55     a1             10
   n59     n69     a1              2
   n69     n59     a1              9
   n61     n70     a1              2
   n70     n61     a1              0
   n61     n73     a1              3
   n73     n61     a1              7
   n69     n72     a1              6
   n72     n69     a1              6
   n70     n73     a1              3
   n73     n70     a1              3
$offdelim
/;

Parameter demand(n) /
   n1            -10
   n2             10
   n4            -19
   n5            -13
   n6             -8
   n7            -25
   n8             17
   n10           -39
   n13           -24
   n15           -30
   n16           -34
   n17           -13
   n18           -15
   n20           169
   n23            -9
   n27            15
   n30           -44
   n32           -51
   n35            42
   n37            48
   n38           -15
   n39           -29
   n41           -11
   n43           -14
   n44            13
   n45           -31
   n46           -45
   n47           -26
   n48            89
   n50           -45
   n52           -62
   n55            -5
   n56           -25
   n57           127
   n58           -48
   n61           -24
   n62            44
   n65            20
   n68           -13
   n69           -52
   n70            40
   n72           -21
   n73            42
   n75            74
   n76            50
/;

u = -sum(n$(demand(n)<0), demand(n));
xupp(m,n,s)$(fcost(m,n,s) or vcost(m,n,s)) = u;
loop((m,n,s)$(fcost(m,n,s)<0),
   fcost(m,n,s)=0;
   vcost(m,n,s)=0;
);