#!/usr/bin/perl

# Implementation: perl *.pl BINARY_NUM

my @inputr = reverse split(//, shift);	
my $output = 0;
for (0 .. @inputr-1) { $output += ($inputr[$_] * (2**$_)); }
print "$output\n";