for (1..10) {
   $s = ($s*0x5deece66d + 0xb) % 2**48;
   say(($s>>17)%1000);
}