Reverse of string

strrev.ml

let strrev s =
	let len = String.length s in
	for i = 0 to ((len/2) - 1) do
		let t = s.[i] in
		s.[i] <- s.[len - i - 1];
		s.[len - i - 1] <- t
	done;
	s
;;