(* file: areaVolume.ml
   author: Bob Muller

   This file contains a couple of first examples of OCaml code.
*)
let pi = acos(-1.0)

(* area : float -> float 
 *)
let area radius = pi *. radius ** 2.0

(* volume : float -> float -> float
 *)
let volume radius height =
  let theArea = area radius
  in
  theArea *. height