{-# LANGUAGE TypeApplications, NegativeLiterals #-}

main = do
  [h, r] <- map (read @Double) . words <$> getLine
  print $ -8.245 + 6.807 * h + 7.073 * r * 2 * pi