print sort{1-2*vec'B6i0c0',$i++,1}<>,$/