Evaluated proc rand:normal {{mean 0} {stdev 1}} {expr $mean + $stdev * sqrt(-log(rand())) * cos(2*acos(-1)*rand())}