main :: IO ()
main = interact $ show . solve . map read . words

solve :: [Int] -> Int
solve (_:_:xs) = maximum xs - minimum xs