func main()
	var _: [][]char :: cui@input().split(" ")
	var v: int :: _[0].split(".")[1].toInt(&)
	var t: int :: _[1].toInt(&)
	var ans: int :: v * t / 10000
	do cui@print("\{ans}\n")
end func