main module shortimp
	%set use_routine_names = true
	use shortexp
	declare ( qq : integer ) 
	qq := i
endmodule