on generate10randomNumFrom40
list40 = []
repeat with i = 1 to 40
list40.append(i)
end repeat
n = 40
repeat while n > 1
m = random(n)
tN = list40[n]
tM = list40[m]
list40[n] = tM
list40[m] = tN
n = n - 1
end repeat
list10 = []
repeat with i = 1 to 10
list10[i] = list40[i]
end repeat
return list10
end generate10randomNumFrom40