(define-values (l k)
 (apply values (map string->number (string-split (read-line) " "))))

(print (* k (let loop ((count 0))
              (cond ((>= (* (+ count 1) 2 k) l) count)
                    (else (loop (+ count 1)))))))