var s:array[0..9]of string;i,j,k:word;begin for i:=0to random(5)do readln(s[i]);for j:=1to length(s[0])do for k:=0to i do write(s[k][j],^j:k div i)end.