var n: integer;

function trans(n, base: integer): string;
var s: string;
    m: integer;
begin
  if base = 10 then
  begin
   str(n,s);
   exit(s);
  end;
  s:='';
  repeat
    m:=n mod base;
    if m >= 10 then s:=chr(ord('A') + m - 10) + s
    else s:=chr(ord('0') + m) + s;
    n:=n div base;
  until n = 0;
  trans:=s;
end;

begin
  n:=1;
  while n <> 0 do
  begin
    readln(n);
    writeln(trans(n, 2));
    writeln(trans(n, 8));
    writeln(trans(n, 10));
    writeln(trans(n, 16));
    writeln;
  end;
  readln;
end.