sub almost_normal {
    my ($mean, $variance) = @_;
    return sqrt($variance) * atan2( rand(2) - 1, 1 ) + $mean;
}