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