var
n:longint;
procedure change(n:longint);
var
i,j:longint;
begin
if n=0 then exit;
i:=n mod 8;
j:=n div 8;
change(j);
writeln(i);
end;
begin
readln(n);
change(n);
end.

输入：2017
输出：3741