(* versao não recursiva *)
let k = 5;;  (*o valor não é 5*)
let (w:float) = 1;;


for i = 0 to k - 1 do

 w = w * (2*(i+1))/((2*i-1)*(2*i+3));

done;


w = w * 2;;

  (* versao recursiva *)

let rec wallis k =  input_line stdin in

if (k <= 1)

then 1

 else wallis (k-1)
;;