stringToDouble :: String -> Double
stringToDouble = read :: String -> Double

getCircumference :: Double -> Double
getCircumference r = 2 * r * pi

main = do
  s <- getLine
  let r = stringToDouble s
  putStrLn $ show $ getCircumference r
