Bence Common Lisp versiyonundan daha güzel.

module Main where

import System.Time

tdiff d = do now <- getClockTime
             return $ diffClockTimes d now

safak = toClockTime (CalendarTime 2008 September 16 0 0 0 0 Tuesday 0 "" 0 True)

main = tdiff safak >>= return . (timeDiffToString . normalizeTimeDiff) >>= print

tonguc@terra:~% runhaskell Main.hs
"1 month, 6 days, 6 hours, 16 mins, 20 secs"
tonguc@terra:~%