//
//Poisson random value generate function
//

//Syntax 
//argument 1 is Lambda value
//return     is poisson random value

//Example 1
lambda=4;

//generate 1000 normal random data 
for(i=1;i<=1000;i++) {
  k=ranpoi(lambda);
  outrec;
}

//inspection by statistic 
static k;

//insepction by poisson distribution histgram.
hist k;