dim h$(99),w$(2)
e=12
input""a$
f=len(a$)
do
input""b$
if""=b$break
n=n+1
h$(n)=b$
loop
for i=1to f:r$=mid$(a$,i,1)+r$:x$=x$+" ":next
w$(1)=a$:w$(2)=r$
for i=1to n
for k=1to 2o=instr(h$(i),w$(k)):if o mid$(h$(i),o)=x$
v$="":for j=1to e:v$=v$+mid$(h$(j),i,1)next
o=instr(v$,w$(k)):if o mid$(v$,o)=x$:for j=1to e:mid$(h$(j),i)=mid$(v$,j,1)next
next
next
for i=1to n?h$(i)next