k=io.read()r=k:reverse()g=k.gsub w=k.rep(" ",k:len())t={}for i in io.lines()do i=g(g(i,k,w),r,w)for j=1,12 do t[j]=(t[j]or"")..i:sub(j,j)end end for i=1,12 do t[i]=g(g(t[i],k,w),r,w)end for i=1,12 do s=""for j=1,12 do s=s..t[j]:sub(i,i)end print(s)end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).