var n:longint;
procedure change(t:longint);
begin
if t=0 then exit;
change(t div 8);
write(t mod 8);
end;
begin
readln(n);
change(n);
end.
输入：2016

输出：3740