/* 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" );
}