	write(6,10)
10      format(1x,'Hi!')
	end
