(define main
  (lambda (n m)
    (cond
      ((> m (quotient n 1000))
       0)
      (#t (* 1000 (quotient (quotient n 1000) m))))))

(define n (read))
(define m (read))

(display (main n m))
(newline)