let () =
  let v, t = Scanf.scanf "0.%d %d " (fun v t -> v, t) in
  Printf.printf "%d\n" (v * t / 10000)