perl -E"{++$t;$r=`perl -E\"say rand()\"`;$r<.5?++$a:++$b; printf qq[\r%.3f : %.3f], $a*100/$t, $b*100/$t; redo}" 49.350 : 50.650