/* recursive factorial routine. /* fact int x [ if (x <= 1) return 1 else return x*fact x-1 ] /* /* driver. /* test int x [ ps "factorial of ;pn x;ps " is ;pn fact(x)]