~~~
{{
  :random:byte 
    '/dev/urandom file:R file:open
    &file:read sip file:close ;
---reveal---
  :n:random
    random:byte   #-8 shift
    random:byte + #-8 shift
    random:byte + #8 shift
    random:byte + ;
}}
~~~


## xoroshiro128**

XOR/rotate/shift/rotate PNRG (See http://xoshiro.di.unimi.it/)

~~~
{{
  'k var 't var 's0 var 's1 var 's2 var 's3 var
  :reseed (n-)  dup !s1 dup !s2 dup !s3 dup !k !t  ;
  :rotl   (x-)  !k [ @k n:negate shift ] [ #32 @k - shift ] bi or ;
---reveal---
  :random:xoroshiro128**  (-n)
    @s0 #5 * #7 rotl
    @s1 #-9 shift !t
    @s0 @s2 xor !s2
    @s1 @s3 xor !s3
    @s2 @s1 xor !s1
    @s3 @s0 xor !s0
    @t  @s2 xor !s2
    @s3 #11 rotl !s3 ;
  :random:xoroshiro128**:set-seed (n-)
    reseed #100 [ random:xoroshiro128** drop ] times ;
}}
~~~