(defun money (n m) (* (floor (floor n m) 1000) 1000))

(defun main () (let ((N (read)) (M (read))) (format t "~A~%" (money N M))))

(main)