test expr with perl-supplied functions

hello('dad')= lc('DAD')= lc(ONE)= sprintf('1+1=%d', TWO)=

test expr with user-defined functions

registered_func('self')= hello_string()= arglist()= arglist('')= arglist('','')= arglist('a','b')=