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