my $f="^(" ;my $r = '"';my$c = 1; my $i; my $t;sub llama{my $n=shift;my $r=""; for (1..11){$r .=($n>=(2 **(11-$_)) )?1:0;if( rindex($r, "1")==$_-1 ){$n-=(2**( 11-$_));}} return $r;}$_ = "0";$_.=llama(1855) ; $_ .=llama( 188);$_.=llama(935); my @i= split(//,$_);foreach(@i){#;+++'' $_+=2;$f.='.'x$_.')('; $r.='$'.$c++.' ';}$r .= '"';#';+++;++' $f.=')';my $string = "";foreach(){$string.=$_;}#'+#++;: $string =~ s/[ \n]//g;my@g=unpack("C*",$string);#;';:;##+'# my $st="";for(1..44){$st .= (($t=(($i=shift(@g))==#';###': 38)?$i+shift(@g):$i-shift(@g))<=9)?#,.+'';'';';+'''++@#, "0".$t:$t;}$_=$st ."4";#++'##+;',::',;;+#;+##,;;@#@#+, /$f/;###';##';;;;++#+@++@#+#@+'',:'';'''+##+@;#:+@#:; my $s = eval $r;#`'+@@@@##@@@+###@#;,''#@@+@''++#+', my @p = split(/ /, $s);#@@@@+#@'@'+##+##@+#@++#@,` print pack("C*",@p). "\n";###@#@+#;@##+@######'` #@@#'';:+'''+#++` '@@@#@#@@@###@@####@#+',. #@@+;##;'+;+#` ,:+####@@@+#@#+#@#+@# #@@#++#;+## ..+#+''#'@@@@#;+@# #@@##++''' ` ,.` #@@@@#;#;. __DATA__ #@@@@@@#+' &$.#&! :+.#{