program kutevi;
var n,k,i:integer;
    nkut,kkut:string;
begin
     readln(n,k);
     readln(nkut);
     readln(kkut);
     for i:=1 to k do writeln('DA');
end.