program mn;
uses crt;
var s:set of 1..9;
n,k:longint;
a:integer;
BEGIN
ClrScr;
Write('N:');readln(n);
While n>1 do
begin
s:=s+[n mod 10];
n:=n div 10;
end;
for n:=9 downto 1 do
if n in s
then inc(a)
else write(n:2);
if k=a
then writeln('4isel net');
readln;
END.