      PROGRAM piyo
      IMPLICIT NONE
      INTEGER,PARAMETER :: prec = 16
      real(prec) :: b
      integer(prec) :: aa,bb
      
      read*,aa,b
      

      bb = nint( b*100_prec )
      print'(i0)',aa*bb/100_prec
      
      
      stop
      !debugg
      
      
      
      END PROGRAM