fromUTCBaseTime (Just UTCTime{..}) = mconcat . map fromIntegerVLC $
    [ toModifiedJulianDay utctDay
    , round . toRational . (pico *) $ utctDayTime
    , pico
    ]
    where
        pico :: forall a . Num a => a
        pico = 1000000000000
fromUTCBaseTime (Just UTCTime{..}) = mconcat . map fromIntegerVLC $
    [ toModifiedJulianDay utctDay
    , round . toRational . (pico *) $ utctDayTime
    , pico
    ]
    where
        pico :: forall a . Num a => a
        pico = 1000000000000
fromUTCBaseTime (Just UTCTime{..}) = mconcat . map fromIntegerVLC $
    [ toModifiedJulianDay utctDay
    , round . toRational . (pico *) $ utctDayTime
    , pico
    ]
    where
        pico :: forall a . Num a => a
        pico = 1000000000000