(*
ocamlfind ocamlopt -package batteries -linkpkg main.ml -o a.out
*)
open Batteries

let f a b = 
        (int_of_float (a *. (100.0 *. b))) / 100

let () =
        Scanf.sscanf (read_line ()) "%f %f" (
                fun a b -> 
                        f a b
        ) |> Printf.printf "%d\n"
