Cut and paste the below camel into a PERL environment. Press return and then ctrl-d. Enjoy! # sub j(\$){($ P,$V)= @_;while($$P=~s:^ ([()])::x){ $V+=('('eq$1)?-32:31 }$V+=ord( substr( $$P,0,1,""))-74} sub a{ ...
a personal and public white board