type sir=array[1..25001] of integer;
var a,b:sir;
    n,t,u:integer;
    f,g:text;

procedure cit1(var n,t,u:integer);
begin
readln(f,n,t,u);
end;

procedure cit(t:integer;var nr2:integer);
var i,j,x,nr:integer;
begin

nr2:=0;
j:=0;
while not eof(f) do begin
  read(f,x); inc(j);
  if j=1 then if x>0 then nr:=x else nr:=not(-x)
         else if j mod t =0 then nr2:=nr2 or nr
         else
  if x>0 then nr:=nr and x
         else nr:=nr and (not (-x));
end;

 writeln('exp ',nr2);

writeln('alta');

end;

function verific:boolean;
var    x,y:integer;
begin
cit(t,x);
cit(u,y);
if x=y then verific:=true
       else verific:=false;
end;


BEGIN
assign(f,'amlei.in');reset(f);
assign(g,'amlei.out');rewrite(g);
while not eof(f) do begin
  cit1(n,t,u);
  if verific then writeln(g,'NU')
             else writeln(g,'NU');
end;

close(g);
END.