fun thousandthPower(x:real) =
		let
			val x = x*x*x*x*x;
			val x = x*x*x*x*x;
			val x = x*x*x*x*x
		in
			x*x*x*x*x*x*x*x
		end;