> getPOSIXTime 1459515013.527711s > review posixTime <$> getPOSIXTime 2016-01-01 12:50:45.588729 UTC
get_ct = getCurrentTimeAsPosix get_pt = getPosixTimeAsPosix (ct,pt) <- get_ct >>= \t0 -> get_pt >>= \t1 -> return (t0,t1) print (pt - ct,pt - ct < 1e-5)