Imports System

Module Program
    Sub Main(args As String())

        Dim tmp As String() = Split(Console.ReadLine(), " ")

        Dim A As Double = CDbl(tmp(0))
        Dim B As Double = CDbl(tmp(1))

        Dim wk As Double = A * B

        Dim ans As Long = Math.Floor(wk)

        Console.WriteLine(ans)

    End Sub
End Module
