function ret=remove( x, S )
  {
   ret = strjoin( strsplit(S, x), "" );
  };

  function ret=swaprow( a, b, M )
    {
     ret=M;
     ret(a,:)=M(b,:);
     M(a,:)=ret(b,:);
     ret=M;
    }
    
