make seed really work and remove Rprintf