import Data.Time.Clock (utctDay, getCurrentTime)
import Data.Time.Calendar (diffDays)

main = do
    let epoch = read "1970-01-01 00:00:00 UTC"
    now <- getCurrentTime
    print $ (utctDay now) `diffDays` (utctDay epoch)