program p1;

type arr=array[1..10001]of char;

var i,j,k,l,n:integer;

st1,st2,st3,s1,s2,s3:arr;

a:array[1..10001]of integer;

procedure init;

begin

readln(n);

for i:=1 to n do read(s1[i]);readln;

for i:=1 to n do read(s2[i]);readln;

for i:=1 to n do read(s3[i]);

end;

procedure work(s1,s2,s3:arr);

var i,j,k:integer;

f:boolean;

begin

for i:=1 to n do

begin

a[i]:=ord(s1[i])-ord(s2[i]);

if a[i]