sub bRand {
    my( $target, $variance ) = @_;
    my $v = sum map rand() * $variance, 1 .. 4;
    return $target - $variance + ( $v / 2 );
}