first Rcpp try (totally not working)