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