4 getClockTime >>= \ time ->
5 let (CalendarTime year month mday hour min sec psec
6 wday yday timezone gmtoff isdst) = toUTCTime time
7 time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
8 wday yday timezone gmtoff isdst)
10 print (length (show time)) >>
12 print (length (show time')) >>