typedef typename ::Rcpp::traits::Extractor<RTYPE,NA,T>::type EXT ; \
const EXT& input( x.get_ref() ) ; \
int __trip_count = (size_) >> 2; \
int i=0 ; \
for ( ; __trip_count > 0 ; --__trip_count) { \
start[i] OP input[i] ; i++ ; \
start[i] OP input[i] ; i++ ; \
start[i] OP input[i] ; i++ ; \
start[i] OP input[i] ; i++ ; \
} \
switch (size_ - i){ \
case 3: \
start[i] OP input[i] ; i++ ; \
case 2: \
start[i] OP input[i] ; i++ ; \
case 1: \
start[i] OP input[i] ; i++ ; \
case 0: \
default: \
return *this ; \
}