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

export	fac1, fac2

forward fortran function fac2 (i: integer) returns fac: integer

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

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

endfunction {fac1}

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

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

endfunction {fac2}



out_integer (tty, fac2(5), "Fac(5)=", true)

endmodule