import Data.Time

main :: IO ()
main = do
    now <- getCurrentTime
    putStrLn $ show . toModifiedJulianDay $ utctDay now