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