main module FACT
%set use_routine_names=true
//%set debug_print_ccode=true
use	TEXTIO
use	VMSRUN

export	factorial

fortran function factorial (i: integer) returns fac: integer

    if i <= 0 do
	fac := 1
    otherwise
	fac := i*factorial(i-1)
    endif

endfunction {factorial}

out_integer (tty, factorial(3), "Fac(3)=", true)

endmodule