var n,i,j:longint;
    a:array[1..10000] of longint;
begin
   while not eof do
     begin
       readln(n);i:=0;
       while n<>0 do
         begin
           inc(i);
           a[i]:=n mod 8;
           n:=n div 8;
         end;
       for j:=i downto 1 do write(a[j]);
       writeln;
     end;
end. 

/**************************************************************
	Problem: 2142
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/