math.ml

open Common

(*****************************************************************************)
(* Prelude *)
(*****************************************************************************)

(*****************************************************************************)
(* Constants *)
(*****************************************************************************)

(* src: Jon Harrop *)
let pi = 4. *. atan 1.