#include <oxstd.h>

main()
{
    decl u = rann(6,1), v, w;

    v = selectifr(u, u .< 0)';
    print(u', v');
    
    w = u;
    w[vecindex(u .< 0)][] = 0;
    print(u ~ w, v' ~ vecindex(u .< 0));
}
