/* REXX    Copied from z/OS V2R1.0 TSO/E REXX Reference              */
arg z
call factorial z
say z'! =' result
exit
factorial: procedure                   /* Calculate factorial by     */
   arg n                               /* recursive invocation.      */
   if n=0 then return 1
   call factorial n-1
return result * n