use Digest::MD5 qw/md5_hex/;
chomp($s=<>);
print md5_hex(md5_hex($s)),"\n";