function y=to_mono(x), y=sum(x,1);
