	write(6,1)
1	format('Hi there')
	stop
	end
