(define n (read)) (define m (read)) (display (* (quotient (quotient n m) 1000) 1000)) (newline)