{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,P-,Q-,R-,S+,T-,V+,X+}
{$M 16384,0,655360}
var
t,t1:text;
m,c,n,i,k,j:integer;
a:array[1..3,1..16] of longint;
begin
       assign(t,'chain.dat');
reset(t);
read(t,n);
read(t,m)
for i:=1 to 3 do
for j:=1 to n do
read(t,a[i]);
close(t);
assign(t1,'chain.res');
rewrite(t1);
writeln(t1,k);
close(t1);
end.