program kutevi;
var a,b,c,d:integer;
st1:string;
begin
readln(a,b);
for c:=1 to a do readln(d);
for c:=1 to b do readln(d);
for c:=1 to b do writeln('DA');
end.