names$="aleph beth gimel daleth he waw zayin heth"
dim sum(8)
dim counter(8)

s = 0
for i = 1 to 7
    s = s+1/(i+4)
    sum(i)=s
next

N =1000000     '  number of throws

for i =1 to N
    rand =rnd( 1)
    for j = 1 to 7
        if sum(j)> rand then exit for
    next
    counter(j)=counter(j)+1
next

print "Observed", "Intended"
for i = 1 to 8
    print word$(names$, i), using( "#.#####", counter(i)  /N), using( "#.#####", 1/(i+4))
next