#!/usr/bin/perl

$patt = $ARGV[0];

for(my $i=39; $i>=0; $i--)
{
  $bits[$i] = 0;
}

$i=0;
$bits[28]=substr($patt,$i++,1);
$bits[29]=substr($patt,$i++,1);
$bits[39]=substr($patt,$i++,1);
$bits[30]=substr($patt,$i++,1);
$bits[35]=substr($patt,$i++,1);
$bits[33]=substr($patt,$i++,1);
$bits[34]=substr($patt,$i++,1);
$bits[38]=substr($patt,$i++,1);
$bits[36]=substr($patt,$i++,1);
$bits[32]=substr($patt,$i++,1);
$bits[31]=substr($patt,$i++,1);
$bits[37]=substr($patt,$i++,1);

$mask=1;
$value=0;
for(my $i=39; $i>=0; $i--)
{
  $value += $mask*$bits[$i];
  $mask = $mask<<1;
}

print "$value\n";