#define f(x,y)for x:=1to length(y)do 
var a,b:string;i,j,k:byte;begin repeat readln(a);read(b);f(i,b)f(j,a)f(k,a)write("(",a[j],b[i],a[k],")",^j:k div length(a))until 0>0end.