(use math.const)

(define-values (h r)
 (apply values (map string->number (string-split (read-line) " "))))

(print (+ -8.245 (* h 6.807) (* 7.073 (* 2 r pi))))