program sarpe;
var f,g:text;
    v:array[1..1002]of 0..9;
    x:char;
    n,i,t,p:integer;
begin
assign(f,'sarpe.in');
assign(g,'sarpe.out');
reset(f);
rewrite(g);
while not eof(f) do
  begin
    n:=n+1;
    read(f,x);
    v[n]:=ord(x)-ord('0');
  end;
t:=0;
for i:=n downto 1 do
  begin
    p:=4*v[i]+t;
    t:=p div 10;
    p:=p mod 10;
    v[i]:=p;
  end;
if (t>0)then write(g,t);
for i:=1 to n do write(g,v[i]);
close(f);
close(g);
end.