var s: ansistring; 
    n,res: int64; 
    i: longint;
begin
    readln(s);
    n := 1;
    res := 0;
    for i := length(s) downto 1 do begin
        if s[i] = '1' then res := res + n;
        n := n*2;
    end;
    write(res);
    readln;
end.

uses crt;
var s: ansistring; // Kieu du lieu cho phep nhap mot chuoi dai hon 255 ki tu
    n,res: int64; // Kieu du lieu so nguyen co gioi han rong hon longint
    i: longint;
begin
    readln(s);
    n := 1;
    res := 0;
    for i := length(s) downto 1 do begin
        if s[i] = '1' then res := res + n;
        n := n*2;
    end;
    write(res);
    readln;
end.