This seemed like a good idea at the time...
sub AUTOLOAD{if(@_){$_=$_[0];sub{($a+=$_*@_)-> (2*$_||2)}}else{$_='';$a||a}}$\=()->();$\++for !()->(()->())->()->(()->())->()->(()->())->(() ->())->()->(()->())->(()->())->()->(()->())->( )->()->(()->())->(()->())->()->(()->())->()->( ()->())..()->();print

Replies are listed 'Best First'.
Re: A JAPH
by davido (Cardinal) on Aug 01, 2004 at 04:33 UTC
    Love it. Good job. What a cool idea. Wish I knew who I was congratulating.

    Dave