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

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