my $xor = $mt[$i-1]^($mt[$i-1]>>30);
        { use integer;  $mt[$i] = 1812433253 * $xor + $i; $mt[$i] >>= 32 if $mt[$i] > 0xffffffff }

##</code><code>##

    $mt[$i] >>= 32 if $mt[$i] > 0xffffffff;

##</code><code>##

    $mt[$i] &= 0xffffffff;