(define solve
  (lambda (n m)
    (if (> m (quotient n 1000))
        0
        (* 1000 (quotient (quotient n 1000) m)))))

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

(display (solve n m))
(newline)