main module PARA
    Use TEXTIO
    procedure Para
	param
		A : optional in ref integer
	endparam
    	declare (B : integer)
	B := A
	out_integer (TTY, A)
	out_record (TTY)
    endprocedure

    Para (3)
endmodule