right time by ska

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).

download

return top