input""a$
b=len(a$)
if b=7a$="long":b=4
for i=0to 2^b
for j=1to b?mid$(a$,j,mod(i/2^(b-j),2));next
?next