sub b{my $a='push@{$_[0]},('.$_[2].join($_[1],(('(pop@{$_[0]}||1)')x$_[0])).$_[3
].');';sub{eval $a};}$a0=b(1,"","","x2");$a1=b(2,"+");$a2=b(2,"*");$a3=b(0,"","
1");$a4=b(1,"","print chr");$s=[];$z='"!3!+"%"#*9):B"--11$2A);"-!$):)1+!-%")*%")*
-*%"!##))*%2!2%"##))B)1!#"*"A$)",+B"$")*%"#)C*-1!3"-"%"#*A)1!1+,%"1*B';map{&${"a
$_"}($s)}map{$f=ord(substr($z,$_,1))-33;($f%8,int($f/8))}(0..111);