use strict;
use warnings;

my $bin = <>;
my $dec = 0;

chomp $bin;
$bin = reverse $bin;

while (!((my $dig = chop $bin) eq '')) {
    $dec = 2*$dec + $dig;
}

print $dec . "\n";