program damy;
var cislo: string[20];
    i: integer;
    c: integer;
begin
 readln(cislo);
 i:=length(cislo);
while (cislo <> '0') do
 begin
  c:=(ord(cislo[i])-48);
  if ((c > 8) or (i > 1))
   then writeln('Kralovny se nevejdou.')
   else
    begin
     case c of 1: writeln('Kralovny lze umistit.');
 	       2: writeln('Kralovny se nevejdou.');
	       3: writeln('Kralovny se nevejdou.');
	       4: writeln('Kralovny se nevejdou.');
	       5,7,8: writeln('Kralovny lze umistit.');
	       6: writeln('Kralovny se nevejdou.');
             end;
    end;
  readln(cislo);
  i:=length(cislo);
 end;
end.