/* This test demonstrates inline proc creation */ proc main() { var a, fact; fact = proc (n,p) { if( n < 1 ) return 1; else return n*p(n-1,p); }; a = fact(7,fact); say( a, "\n" ); }