$J=qw,34+40;117;79+36;(116);32;,;$s=sub{eval(shift())};#This is my eva
+l
@u=('a'..'z');$J.=qw:97;110;111;(116-0);104;101;114;(16*2);:;#from hel
+l
$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#-rd
{"$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;-)
[download]

Kristofer Hoch

Si vos can lego is, vos es super erudio