(define (f n k)
	(inexact->exact 
    (+ (* 50 n)
      (floor (/ (* 50 n)
             (+ 0.8 (* 0.2 k)))))))
             
(define (MAIN)
  (let* ((a (read))
         (b (read)))
    (display (f a b))
    (newline)))

(MAIN)