var s[10]for j=0to 9repeat i=rnd(10)until!s[i]s[i]=1?i;:next