#!/usr/bin/perl
print map{chr(1+2**5+5*$_)}split//,(eval{@n=split//,'1110011111';
map{$s+=2**(@n-1)*(shift @n)}@n;$s;}),"\n";