var i,j,r:integer;
s,a:array[1..4,1..4] of char;
c:string;
begin
for i:=1 to 4 do begin
    readln(s[1,i]);
    readln(s[2,i]);
    readln(s[3,i]);
    readln(s[4,i]); end;
for j:=1 to 4 do begin
    read(a[1,j]);
    read(a[2,j]);
    read(a[3,j]);
    read(a[4,j]); end;
        writeln;
for i:=1 to 4 do
    for j:=1 to 4 do
        if s[i,j]='X' then
        c:=c+a[i,j];
 
for j:=1 to 4 do
    for i:=4 downto 1 do
        if s[i,j]='X' then c:=c+a[j,5-i];
 
for i:=4 downto 1 do
    for j:=4 downto 1 do
        if s[i,j]='X' then c:=c+a[5-i,5-j];
 
for j:=4 downto 1 do
    for i:=1 to 4 do
        if s[i,j]='X' then c:=c+a[5-j,i];
 
write(c);
end.

dmFyIGksaixyOmludGVnZXI7CnMsYTphcnJheVsxLi40LDEuLjRdIG9mIGNoYXI7CmM6c3RyaW5nOwpiZWdpbgpmb3IgaTo9MSB0byA0IGRvIGJlZ2luCiAgICByZWFkbG4oc1sxLGldKTsKICAgIHJlYWRsbihzWzIsaV0pOwogICAgcmVhZGxuKHNbMyxpXSk7CiAgICByZWFkbG4oc1s0LGldKTsgZW5kOwpmb3Igajo9MSB0byA0IGRvIGJlZ2luCiAgICByZWFkKGFbMSxqXSk7CiAgICByZWFkKGFbMixqXSk7CiAgICByZWFkKGFbMyxqXSk7CiAgICByZWFkKGFbNCxqXSk7IGVuZDsKICAgICAgICB3cml0ZWxuOwpmb3IgaTo9MSB0byA0IGRvCiAgICBmb3Igajo9MSB0byA0IGRvCiAgICAgICAgaWYgc1tpLGpdPSdYJyB0aGVuCiAgICAgICAgYzo9YythW2ksal07Cgpmb3Igajo9MSB0byA0IGRvCiAgICBmb3IgaTo9NCBkb3dudG8gMSBkbwogICAgICAgIGlmIHNbaSxqXT0nWCcgdGhlbiBjOj1jK2Fbaiw1LWldOwoKZm9yIGk6PTQgZG93bnRvIDEgZG8KICAgIGZvciBqOj00IGRvd250byAxIGRvCiAgICAgICAgaWYgc1tpLGpdPSdYJyB0aGVuIGM6PWMrYVs1LWksNS1qXTsKCmZvciBqOj00IGRvd250byAxIGRvCiAgICBmb3IgaTo9MSB0byA0IGRvCiAgICAgICAgaWYgc1tpLGpdPSdYJyB0aGVuIGM6PWMrYVs1LWosaV07Cgp3cml0ZShjKTsKZW5kLg==

Li4uLgpYLi5YCi5YLi4KLi4uWApQd29vCktoYWEKc21ycwpvZGJr

....
X..X
.X..
...X
Pwoo
Khaa
smrs
odbk