my $seed = 21324556;
sub _prng {
    # von Neumann middle-square method
    return 1e-8*($seed = int(1e-4 * $seed**2) % 1e8);
}