#load"unix.cma"open Unix;;putenv"TZ""right/NZ";while 0=0do let s,n,h,d,m,y=Obj.magic gmtime(read_float())in Printf.printf"%d-%02d-%02d %02d:%02d:%02d "(y+1900)(m+1)d h n s done
Note that non-ascii characters in the above source code will be escaped (such as \x9f).