$J=qw,34+40;117;79+36;(116);32;,;

$s=sub{eval(shift())};#This is my eval

@u=('a'..'z');

$J.=qw:97;110;111;(116-0);104;101;114;(16*2);:;#from hell

$s=sub{eval(shift())};

$J.=qw:;112;101;114;108;32:;#JAPH. It isn't very
$t=sub{
	my@e=@u;
	my$u=16;
	$t_=sub{"$e[$u+2]$e[$u]$e[++$u]$e[++$u+1] $_[0]"};
	&$s(&$t_(shift()))
};

$e=sub{
	$t_=sub{"$u[&$t(4)]$u[7]$u[17] $_[0]"};#ha-
	&$s(&$t_(shift()));
};

$J.=qw:;104;97;99;107;101;114:;

$f=sub{
	$t_=sub {"$u[15]$u[17]$u[8]$u[13]$u[19]($_[0])"};
	&$s(&$t_(shift()));
};#to figu-

$_=$g+=$s;

$g=sub{
	$t_=sub{"$u[5]$u[14]$u[17](@_)"};
	&$s(&$t_(eval@_));
};

print (&$e(&$s($_)))for(split(/;/,$J));
print "\n";#-re out at all;-)