# perl -le 'for(1..shift){$r[int(rand 3)==int(rand 3)]++}printf"%.03f\n",$r[0]/$r[1]' \ 10000000 2.001
If you are unable to use this captcha for any reason, please contact us by email at support@dreamwidth.org
Other options: