import Time main = do t <- getClockTime x <- toCalendarTime t print (toUTCTime t) print x