(define (poky L K)
  (let ((n (quotient L 2)))
    (cond [(<= (truncate (/ n K)) 1) 0]
          [(= (modulo n K) 1) (* (- (truncate (/ n K)) 1) K)]
          [else (* (truncate (/ n K)) K)])))

#|
(define (create-list n)
  (if (= n 0) '()
      (cons (read) (create-list (- n 1)))))
|#
(define (main args)
  (let* ((L (read))
         (K (read)))
    (print (poky L K))) 0)