-module('Main').
-export([main/1]).

main(_) ->
    {ok, [A, B]} = io:fread("", "~d ~f"),
    IntB = (floor(B * 100) div 100) * 100,
    Ans = A * IntB div 100,
    io:format("~p~n", [Ans]),
    halt().
