import System.Time\x0d import System.Locale\x0d import System.Posix.Env\x0d main=do\x0d putEnv("TZ=right/UTC")\x0d interact$unlines.(>>= \s->[formatCalendarTime defaultTimeLocale "%Y-%m-%d %X".toUTCTime$TOD (case(read s::Integer)of;x|x>1230768022->x+1;x->x) 5]).lines
Note that non-ascii characters in the above source code will be escaped (such as \x9f).