` FILE:    fact.x
` PURPOSE: minimal subprogram test for xcom
` METHOD:  output is input factorial.  Recursive

if n = 0 ? res := 1;
:: n > 0 ? r := fact := n-1; res := r*n;
fi