{
double side=.5E-3;
TH2F isto("correlazione","Correlazione numeri random successivi",1000,0.,side,1000,0.,side);
TRandom gen(0);
double x1=gen.Rndm(), x2;
int N=0, Nin=0, count=0;
while (Nin<200) {
  x2=gen.Rndm();
  if ( x1<side && x2<side) {
    isto.Fill(x1,x2);
    Nin++;
  }
  x1=x2;
  count++;
  if ( count==10000000) {
    N+=10;
    count=0;
    cerr << "Generati: " << N 
	 << " milioni di punti; accettati: " << Nin << endl;
  } 
}
isto.Draw();
}