var

  w:qword;

  d:integer;

begin

  while not eof do begin

    readln(w);

    readln(d);

    if (w * 2 + d) mod 3=0 then writeln ('普通')；

    if (w * 2 + d) mod 3=1 then writeln (' 吉')；

    if (w * 2 + d) mod 3=2 then writeln ('大吉')；

  end；

end.

怎么并成一行？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？？