#!/usr/bin/runhaskell
module Main where

import System.Time
import System.Locale (defaultTimeLocale)
import Control.Monad (liftM)

timeFormat = "%d%m%y"

daysAfterThursday d | d < Thursday = 3 + fromEnum d
                    | otherwise    = fromEnum d - fromEnum Thursday
main = do
    clocktime <- getClockTime
    let utc = toUTCTime clocktime
    let diff = noTimeDiff { tdDay = daysAfterThursday $ ctWDay utc }
    let thursday = toUTCTime $ diff `addToClockTime` clocktime
    putStrLn $ formatCalendarTime defaultTimeLocale timeFormat thursday