Not my original work. I stole the code from a well-known (among certain folks, anyway) online tutorial of lambda-calculus with Perl. I merely scrambled the original code. Thought it made cute obfu. I think what it does is very self-explanatory.

$ONE=(
sub{my
$n=shift
;(sub{my
$x=shift
;sub{my
$y=shift;
sub{my$b
=shift;(
$b)->($x
)->($y);



          }}})->(
          sub{my$x
          =shift
          ;sub{my
$y=shift;$y;}})->($n);})->((
sub{my$x=shift;sub{my$y=shift
;sub{my$b=shift;($b)->($x)->(
         $y);}}}
         )->(sub{
         my$x=shift
         ;sub{my


      
$y=shift;     
$x;}})->(
sub{my$x=
shift;sub
{my$y=shift
;$x;}}));
$TWO=(sub
{my$n=shift
;(sub{my
$x=shift;
sub{my$y=



shift;sub{my$b=shift;($b)->
($x)->($y);}}})->(sub{my$x=

shift;sub{my$y=shift;$y;}})->(
$n);})->((sub{my$n=shift;(sub{



   my$x=shift;sub{my$y=shift;sub{my$b
 =shift;($b)->($x)->($y);}}})->(sub{my$x
=shift;sub                   {my$y=shift;$y
 ;}})->($n);                })->((sub{my$x=
  shift;sub{              my$y=shift;sub{my
                        $b=shift;($b)->($x)
                      ->($y);}}})->(sub
                     {my$x=shift;sub{my
                    $y=shift;$x;}})->(
                   sub{my$x=shift;sub
                  {my$y=shift;$x;}
                 })));$WhatIs=
                sub{my$n=shift
              ;my$o=0;until(
            sub{my$b=shift
         ;sub{my$t=shift
     ;sub{my$f=shift;($b)
  ->($t)->($f);}}}->(sub{my
 $n=shift;(sub{my$p=shift;($p)
->(sub{my$x=shift;sub{my$y=shift;$x;}});})->(
$n);}->($n))->(1)->(undef)){$o++;$n=sub{my$n=
shift;(sub{my$p=shift;($p)->(sub{my$x=shift;sub
{my$y=shift;$y;}});})->($n);}->($n);}print$o;};$ADD=



sub{my$f=shift;(sub{
my$x=shift;sub{my$y=
shift;$f->($x->($x))
;};})->(sub{my$x=shift
;sub{my$y=shift;$f->(
$x->($x));};})}->(sub
{my$g=shift;sub{my$m
=shift;sub{my$n=shift
;sub{my$b=shift;sub{
my$t=shift;sub{my$f=
shift;($b)->($t)->($f
);}}}->(sub{my$n=shift
;(sub{my$p=shift;($p)
->(sub{my$x=shift;sub
{my$y=shift;$x;}});})
->($n);}->($m))->(sub
{my$q=shift;$n})->(
sub{my$q=shift;($g->(
sub{my$x=shift;$x}))->
(sub{my$n=shift;(sub
{my$p=shift;($p)->(sub
{my$x=shift;sub{my$y=
shift;$y;}});})->($n)
;}->($m))->(sub{my$n=
shift;(sub{my$x=shift
;sub{my$y=shift;sub{
my$b=shift;($b)->($x)

->($y);}}})->(sub{my
$x=shift;sub{my$y=
shift;$y;}})->($n);}
->($n));})->(sub{my$x
=shift;$x});}}})->(
sub{my$x=shift;$x});


$WhatIs->($ADD->($ONE)->($ONE));    # print "2"
[download]