import Data.Time.Clock
import Control.Concurrent
main = do
now <- getCurrentTime
threadDelay 100000
thn <- getCurrentTime
print $ diffUTCTime thn now
aW1wb3J0IERhdGEuVGltZS5DbG9jawppbXBvcnQgQ29udHJvbC5Db25jdXJyZW50CgptYWluID0gZG8KCW5vdyA8LSBnZXRDdXJyZW50VGltZQoJdGhyZWFkRGVsYXkgMTAwMDAwCgl0aG4gPC0gZ2V0Q3VycmVudFRpbWUKCXByaW50ICQgZGlmZlVUQ1RpbWUgdGhuIG5vdw==