Scanf.scanf "%f\n" @@ fun p -> Printf.printf "%.5f\n" (p /. (1. -. p))