{def $a = 0
     $b = 0 
     $c = 0
     $i = 0 
}

{while lt($i, 999)}
{set $c = rand(0, 5)}

{if lt($c, 3)}
{set $a = inc($a)}
{/if}

{if lt($c, 2) }
{set $b = inc($b)}
{set $i = inc($i)}
{/if}
{/while}

{$b|div($a)|mul(100)} %