funx <- cfunction(signature(y = "integer" ), '
Language call( "seq", Named("from", 10 ), Named("to", 0 ) ) ;
IntegerVector x(y) ;
List output( x.size() ) ;
std::transform( 
        x.begin(), x.end(), 
        output.begin(),
        unary_call<int>(call)
        ) ;
return output ;
', Rcpp = TRUE, verbose = FALSE, includes = "using namespace Rcpp;" )