#!/usr/bin/perl
$/ = undef;
$_ = <>;
s/#.*//g;
s/\s//g;
print pack("N*",unpack("V*",pack("H*",$_)));