dim d(99)
r=ran(3)
t=4240
if(r<2)t=4224
if(r<1)t=68420688
for i=0to 35-d(1)/7*10input""d(i)
?d(i),left$("*",and(t,2^i))next
wait.8