#!/usr/bin/perl -w

$string = $code = '';

while (<>)
{
	chomp;
	$code .= $_;
}

while ($code =~ s/^([01]{8})//)
{
	my $bin = $1;
	my $math = reverse $bin;
	my $mult = 1;
	my $num  = 0;

	while ($math =~ s/^(.)//)
	{
		$num += ($1 * $mult);
		$mult *= 2;
	}

	print chr int $num;
}

print "\n";