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