main = subtract <$> fmap f readLn <*> fmap f readLn >>= print

f :: Double -> Double
f x = 2 * pi * x