#!/usr/bin/env runghc

import Control.Monad

getTime = liftM (read :: String -> Integer) getLine

main = do first <- getTime
          catch (loop first) (\_ -> return ())

loop prev = do next <- getTime
               putStrLn $ show $ next - prev
               loop next