/* Still more constant expression tests */

const c00 = [1] & [3];
const c01 = [1] | [2];
const c02 = [3] ^ [5];
const c03 = {1,2,3} == {1,2,3};
const c04 = [1,2,3] #= [1,2,4];
const c05 = [1,2,3] != [1,2,3];
const c06 = [1,2,3] < [4,5,6];
const c07 = [1,2,3] > [4,5,6];
const c08 = [1,2,3] <= [4,5,6];
const c09 = [1,2,3] >= [4,5,6];
const c10 = ~[-1];
const c11 = -[1];
const c12 = [1,2,3] + [4,5,6];
const c13 = [1,2,3] - [4,5,6];
const c14 = [1,2,3] * [4,5,6];
const c15 = [1,2,3] ** [4,5,6];
const c16 = [1.,2.,3.] / [4.,5.,6.];
const ops = {"&", "|", "^", "==", "#=", "!=", "<", ">", "<=", ">=", "~", "-",
             "+", "-", "*", "**", "/"};
const res = {c00, c01, c02, c03, c04, c05, c06, c07, c08, c09, c10, c11,
             c12, c13, c14, c15, c16};

proc main()
{
    forall (ops[i]) {
        print("SL,V4,*,V,X", ops[i], res[i]);
    }
}