#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