Hi.

/* whash */stock whash(rddg[]){   new rddg = strlen(whash);   new s = 0;   new a = 1;   new tmp;      for(new i=0;i<rddg;i++)   {     s >> a * s;     a << s * a;     tmp = (a + s)+5 % 16500;   }   else   {     rddg = (s + a);     tmp = (s >> a + strval(a));   }   return (a + s) + tmp * 3;}