${(abs>$z[$=]?$i:$\)=$==$i+$\>>1while$i+1<$\;splice@z,$\,-$_==$z[$\],$_>0&@z-$\<$'?$_:();$\=@z;i}=-1,/ /for<>;print