$_ = shift;
print unpack "N", pack "B*", ("0" x (32 - length)) . $_;