sub generate_rng {
    my $seed = shift;
    my $count = 0;

    return sub {
        $seed = sha384_hex($seed . $count++);
        my $rnd = hex(substr($seed, 0, 4));
        return $rnd;
    };
}