// Show that vector are compared by veccmp

proc main()
{
    var d = <<< [1.,0.,0.], "red", [0.,1.,0.], "green", [0.,0.,1.], "blue" >>>;
    var r, g, b;

    r = d[[1,0,0]];
    g = d[[0,1s,0]];
    b = d[{0,0,1ub}];
    "rgb = ", r, ' ', g, ' ', b, '\n';
}