import Data.Time.Clock
import Control.Concurrent

main = do
	now <- getCurrentTime
	threadDelay 100000
	thn <- getCurrentTime
	print $ diffUTCTime thn now