real a(100,100),b(100,100)
	read *,a
	b=a+a
	print *,b
	end