Scanf.scanf "%f %f" (fun r d ->
    Printf.printf "%.7f\n" @@ sqrt (d *. d -. r *. r)
)