begin
assign(f,'b.in'); reset(f);
assign(f2,'b.out'); rewrite(f2);
readln(f,s);
while s>0 do begin
b[i]:=s mod 10;
i:=i+1; s:=s div 10;
              end;
for g:=1 to i do begin
r[g]:=9-b[g];
               end;

for g:=1 to i  do begin
  a[g]:=r[g]
              end;
for e:=1 to i do begin
  for n:=e+1 to i+1  do begin
  if b[e]>b[n] then begin
  h:=b[e]; b[e]:=b[n]; b[n]:=h;
  p:=r[e]; r[e]:=r[n]; r[n]:=p;
                   end;
                   end;
                   end;
                   l:=0;
 for g:=1 to i do begin
  if   r[g]<>b[g] then  do begin l:=l+1;
                    end; end;
    if l=0  then do begin
  for g:=1 downto i do begin
  write(f2,'a[g]') else writeln(f2,'a[g]');
  end; end;
  close(f); close(f2);
  end.