runHisg args = do
    currentTime <- liftIO getCurrentTime
    runArgs args
    processFiles currentTime layout
runHisg args = do
    currentTime <- liftIO getCurrentTime
    runArgs args
    processFiles currentTime layout
runHisg args = do
    currentTime <- liftIO getCurrentTime
    runArgs args
    processFiles currentTime layout