#!/usr/bin/env gosh

(define (main _)
  (let* ([d (read)][p (read)])
    (display
     (regexp-replace #/\..*$/
		     (format "~f" (* d (+ p 1)))
		     "")))
  (newline)
  0)