import Control.Applicative
import Data.Maybe

solver :: [Double] -> Maybe Double
solver [] = Nothing
solver xs = Just $ maximum xs - minimum xs


main :: IO()
main = do
  contents <- map (read :: String -> Double) . lines <$> getContents
  print $ fromJust $ solver contents