import Data.List

ans ([0]:_) = []
ans (_:x:r) =
  let s = sort x
      s'= drop 1 s
      d = minimum $ map (\ (a,b) -> a-b ) $ zip s' s
  in
    d:(ans r)

main = do
  c <- getContents
  let i = map (map read) $ map words $ lines c :: [[Int]]
      o = ans i
  mapM_ print o

