program c_
    use,intrinsic :: iso_fortran_env
    implicit none
    integer(int64):: a,ans
    real(real128):: b
    
    read*, a,b
    ans = int(a*b, kind=int64)
    print'(i0)', ans
end program c_