program a;
var i1,j1,i2,j2,i,j,k:integer;
s,x:cher;
a:array[1..5,1..5] of char；
b:string;
procedure err;
begin
write('No Amswer'); halt;
end;
procedure swp(var i1,j1,i2,j2:integer);
var
t:char;
t1:integer;
begin
t:=a[i1,j1];a[i1,j1]:=a[i2,j2];a[i2,j2]:=t;
t1:=i1;i1:=i2;i2:=t1;t1:=j2;j2:=j1;j1:=t1;
end;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
read(a[i,j]);if a[i,j]=' ' then begin i1:=i;j1:=j;end;
end;
readln;
end;
readln(b);k:=length(b);
for i:=1 to k do
begin
if((i1=1)and(b[i]='A'))or((i1=5)and(b[i]='B'))or((j1=1)and(b[i]='L'))or
((j1=5)and(b[i]='R')) then err;
i2:=i1;j2:=j1;
case b[i] of
'A':i2:=i1-1;
'B':i2:=i1+1;
'L':j2:=j1-1;
'R':j2:=j1+1
end;
swp(i1,j1,i2,j2);
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]);
writeln;
end;
end.